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Introduction 


Everybody knows that computers are used for all kinds of serious purposes — 
financial calculations, business applications and text processing, for instance. 
They can, however, help us in another way. As the proverb says ‘All work and 
no play makes Jack a dull boy’ and it’s certainly true that we all need some¬ 
thing to keep the cogwheels of our mind turning when we are not considering 
the ‘important’ things in life. So we read books, do hobbies, and play games. 

Bruegel’s wonderful painting ‘Children at Play’ shows us that this has been 
true for centuries, if not forever. 

This book aims to provide something for everybody from 6 to 96. There 
are games to play on your own, and others to play with your family and 
friends. You will find fast action games to test your reflexes and your ability to 
control many moving objects on the screen; puzzles and brainteasers to get you 
thinking; board games where you pit your wits against the computer; and, of 
course, some wonderful arcade-type games which combine aspects of all of 
these. There are also some very intriguing games which are in a class of their 
own. 

A number of the games have been devised to give interesting and worth¬ 
while results from relatively short listings that will not take much time to enter. 

Looking again at ‘Children at Play’ a thought springs to mind. If Bruegel 
were alive today, would his painting look something like this . . . 
















Galactic Monsters 

There it is, registering on the x-y-Gz radar. At last, you are approaching the 
Milky Way. In just 2.56 protoseconds you will be safe in your home galaxy! 

But there is danger here, and as captain of your ship, you know very well 
what it is. You keep a watchful eye on the XR6-screen. No alert yet. The 
tension is unbearable ... 2.5 protoseconds . . . 2.0 protoseconds ... 1.5 
protoseconds ... oh no! There it is — 


THE VAN ALLEN SQUARE STONE BELT 


There are a number of these notorious belts, and in them lurk the dreaded 
Galactic monsters. No weapon can defend you against these vengeful creatures; 
all you can do is avoid them. 

Once the program is started and you see a VAN ALLEN SQUARE 
STONE BELT then you can move yourself by pressing: 

W, for one square upwards 
A, for one square to the left 
D, for one square to the right 

X, for one square downwards 

Those terrible Galactic monsters will approach closer and closer. Your only 
hope for survival is to avoid them! If you cross a VAN ALLEN SQUARE 
STONE BELT a second time, the monsters will become more aggressive. Some¬ 
how, they seem to anticipate your every move. 

Good luck, captain . . . only a few protoseconds to go, and you are home 

free! 
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100 REM##SCREEN** 

110 PR I NT "Cl" 

120 FOR T=1 TO 10 
130 PRINT SPC< 13 •' "m •#*#*#«#•** 

140 NEXT T 

160 PR I NT" 

170 XI ==6 
IS0 VI=2 

190 FOR T=1 TO 11 
200 ,x < t =T 

210 V < T = 11 
220 NEXT T 
230 KR=KR+.1 
240 RETURN 

300 REM**PLRVER- / ’S MOVE** 

310 GET KV$ : IF KV$="" THEN 470 
320 POKE S+4,33 
340 FOR M=1 TO 40=NEXT M 
350 POKE S+4,0 

370 PR I NT TAB CX1 + 13 > , LEFT* <HT, V1 > " 

380 IF KV*="B H THEN X1=M1+1 

390 IF KV$="W" THEN V1=V1-1 

400 IF K't'$="X" THEN VI=71+1 

410 IF KV$="R" THEN X1=X1~1 

420 IF XI<1 THEN XI=1 
430 IF VK1 THEN VI = 1 
440 IF X18> 11 THEN X 1 = 11 
450 PR I NT " S ,! TAB < X1 + 13 > LEFT* C D*, V1 >, 

460 PRINT " S8" TAB (X1 + 13) LEFT $ <. Ii$ .< V1 > 

470 FOR T~1 TO H 

480 if xiox-:t;< then 520 

490 IF V1OV<T) THEN 528 
500 GOSUB 1020 
510 CR=-1 
520 NEXT T 
530 RETURN 

600 REM**M0NSTERNS MOVE** 

610 FOR T=1 TO 11 
620 PR I NT " B"; TRE < X < T > +13 > ; LEFT* ( D*, V < T > > ; 'TiT©" 
630 IF RNIK0XKA THEN 900 
640 R = I NT < RND '■ 0 > *4 > 

650 IF Fl—0 THEN 690 

660 IF fi»l THEN 710 

670 IF fl=2 THEN 730 

680 GOTO 750 
690 X(T > =X< T > +1 
700 GOTO 760 
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710 X < T :• =X < T > -1 

720 GOTO 760 

730 V < T >=V< T >-1 

740 GOTO 760 

750 V(T)=V(T)-1 

760 IF X<T.K1 THEM 310 

770 IF X < T > > 11 THEN 830 

780 IF V < T)<1 THEM 850 

790 IF Va>>ll THEN 870 

800 GOTO 880 

810 X(T}=XCT>+1 

820 GOTO 960 

830 X<T>=X<T>-1 

840 GOTO 960 

850 V<rT)=V(T> + l 

860 GOTO 960 

870 V(T)=V(T)-1 

880 F'R I NT "3" TRB < X ( T > +1 3 > LEFTS < DS, V < T > , 11 m 
890 GOTO 960 
900 X2=X1-X<T> 

910 V2=V1-V(T> 

920 IF RNB•'0><. 8 THEN 950 
930 X (. T :> =X ( T +SGN < X2 > 

940 GOTO 960 

950 V<T >=V(T >+SGN<V2 > 

960 PRINT " SS" TAB C X <T > +13 > , LEFT $ < D$.. V < T > > u m 

970 NEXT T 

980 FORU*l TO 11 

990 PR I NT " 33" j TAB < X < U > +13 > ; LEFT $ < B$, V < IJ > > " m 

1000 NEXT IJ 

1010 RETURN 

1020 POKE S+4,33 

1030 FOR L=1 TO 10 

1040 FOR M=10 TO 30+L*2 

1050 POKE S+1 -M 

1060 NEXT M 

1070 NEXT L 

1080 POKE S+1,20 

1090 POKE 3+4,0 

1100 RETURN 

2000 REM**MAIN PROGRAMS* 

2010 Kfl=Kfl+.1 

2028 GOSUB 110:REM SCREEN 

2030 GOSUB 310:REM rlAVER MOVES 

2040 BR=ER+1 

2050 IF NOT Cfl THEN 2170 
2060 K=K+l:Cfl=0 
2070 SC=SC+flT-BF?-5*K 
2080 AT=AT+20 
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2090 £R=0 

9100 IF K<5 THEN 2020 

2110 PRINT"CENT OF THIS GAME." 

2120 PRINT"VOUR SCORE IS : "• 

2130 PRIhr SC 

2140 PRINT"TVPE RUN TO START AGAIN. 
2160 END 

2170 IF V1=11 THEN 2020 
2180 GOSUB 610 
2130 GOTO 2030 



Zombies in the Swamp 

Watch out! There are zombies about, and you have to cross the swamp where 
they live. To do this you must walk across on rafts. 

At the start of the game the swamp looks like this: 


WAY OUT 

t 


SWAMP 

- ? 


here you are, 
standing on a raft 


You are at one comer, and you must reach the diagonally opposite comer to escape. 
Use the appropriate cursor keys to position a raft next to the one you are standing on, 
and again to step onto it. 

So far so good, but beware! From time to time one of those zombies will 
emerge from the swamp and run across the rafts you have positioned. If you 
are in its way it will catch you. Luckily, zombies can’t see very well so they 
often fall off the rafts back into the swamp. 
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To succeed in this exciting game you must develop your own strategy. The 
longer and more complicated your path the less likely the zombies are to catch 
you, but, on the other hand, it will take you longer to get across the swamp, 
giving time for more zombies to appear. 

Oh no! Here come those terrifying zombies again. You had better just 
hope they don’t catch you. 


.10 REM***Z0MBIE5 IN the 3NRM**** 
•18 DIM ft < 14.9, 


88 FOR C=0 T 0 !4 

48 h < C , 0 /• “ -- 1 ft <' C .• ft = ~ i 

50 NEXT 

F.0 FOR C-0 TO 9 


51 

ft<0C— 1 ft'." ■ 

: 4 , L :■=-! 

63 

NEXT 


65 

POKE 53288,2 


70 

fta,0>=i ■ ft( 0 . 

■ 1 .:«=■! 


80 DEF FNR ( X > = I NT < N*RND (8 > + j. > 

90 EM$="5 dHHI dill 
110 PL$="ns3###di!«ai###dii»### ,: 

: 30 mo$= " ra**Hia»**WMii***" 

150 DR$="Bia mmi dim 

170 DT~- " ! ■ 

180 GOTO 2000 

280 REM**PRINT T$ ON X,V** 

210 PR I NT LEFT* ( d$ . 3* • V- 1 > +1 > trb <. 8* ■ 
220 RETURN 

308 REM**INITIftLIZE** 

310 PRINT "IT : 

320 FOR LI-1 TO 24 


330 PRINT "MS 
340 NEXT 

356 M=0:PX=13 : PV=8 ft(13,8> = ! 

360 X=PX ; V=PV 

37G T$=PL$ : GOSUB 288 

380 RETURN 

480 REM**PLftVER"S MOVE** 

41G REM INPUT 

428 GET IN$ IF INi="" THEN 420 
430 DX=aN$="H" >-< IN$= ,, M M ■' 

440 dv= < i n$= " .t > - < i n$= n :« n ' 

470 IF DX=8 FIND DV=0 THEN 420 

460 ON ft(PX+DX, PV+DV> +1 GOTO 500.. 550 


1 • • ^ Tf : 


REM 39 SPRCES 
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490 GOTO 420 

500 REM*THROW Rf'FT* 

510 X=PX+BX ; V=PV+DV 
520 TT=EM$:GOSUB 208 
530 fl < X.. V > = 1 
540 RETURN 
550 REM*MOVE* 

560 X=PX:V-PV 

570 TT=EMT ; GOSUB 200 

560 PX=PX+DX ; PV=PV+riy 

590 IF PX=0 OR PV=0 THEN 630 

600 X=PX •• V=PV 

610 T$=PL$:GOSUB 200 

620 RETURN 

630 REM*WON* 

640 PRINT DT; TRB< 18> " aBCONGRRTULPTIONS ! 
658 FOR 1=1 TO 10 : GET ST : NEXT 
660 GET ST-IF ST= ! ' 1 ' THEN 660 
678 RUN 

700 R E M * * M 0 N STEP * * 

710 MX=13 ; MV=8 

715 X=MX : V s ®MV 

720 TT=MOT:GOSUB 200 

730 Ci N F N R v 2 > G 0 S U B 888.898 

748 LX=HX■Lv=nv 

758 REM*NEW DIRECTION* 
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?6 0 i f p' m:••••:+l x • v *v+ lv :• •: i jy-*■ i e 00 

7 7 0 :: F R < r, 1 x+L V, MV - L X > = t 0P RM -!. '' M V 4-!...: •' •j T MEH 84 0 
780 R E M * 3 R M E I: IP E C T 10 N * 

790 BX=L-<- : 33¥ : ~L’t 

795 GOTO 920 

800 REM* INTO SWAMP* 

810 ON FNR 4 GOSUB 880 ■ 890 .900 9 i 0 

8 2' 0 IF A*' M ' 4- II M v Jj v I •- ;! T j-| C* 'I < t I 

880 00 T 0 320 

840 REM*ROSS IBLE Mfv.'E * 

850 ON FNR 1 'GOSUB 88 0 , '890 900 91 0 

880 IF BX=--LX RNT' 1 .1 ■' -- ■ 1 ...V OP ■ m. -vi;r • mv '• ' ' TL --~n 

880 33 x= q 1 RETURN 
890 I'X—~ 1 : IiV= 0 : RETURN 
900 DX= 0 •B'V- 1:RETURN 
93.0 33 X- :i • Jjv= 0 • pcti iRkj 
320 REM*mo'., : e* 

940 TT-EMT:GOSUB 900 

950 mx^mx+:dx 

960 M¥=Mv4 J3V 
970 LX=BX : LV=r'V 

9 S 0 I F A M >' M V - 0 T H E n 1 0 9 9 
930 ; : .:>r’1X V~MV 

10 00 T $=v n ■$ ■ u Q s 0 .P 2 O 0 

1 0 ;; 0 ■ F MV P ■ •: ft r! "> * 1V r, =•. ■. t M p ki 1 0 0 
j 020 GOTO 750 
1830 REM*M0N8~FR V Rnu ne n*• 

1 040 A •: rix j. 

1050 X~MX V'-MV 

1060 = 0!'C:J7: 200 

1070 FFT'jRN 

1 6® 8 0 R E N * P i. A 'v F P p p ■ 2. i T * 

0 9 0 C TMf X'l T : T 9 £ 8 ' : ’ ’ 0 : . 1 V ;r . : : B 6 F h ■ F K! ■ V. ! 1 

3 3 00 FOB I "9 T 2 :!0 0E' r F:!t • vEv-'T 

j.:vi OE” FT IF c t~ : ' ' T MRM I 0 
:120 RUN 

2000 R E M * * M AIN R P 0 0 p R Ml * * 

20 :0 GOSUB -:00 P~m t mt t t r: t 

V •'•00 003!jp 400 prv p CVFR . YY •’•• 

2040 ■ , , :| "v: -- ' MP/ 1 VVlpPl 

20P.0 TT- '-r - 
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Keyboard Memory 

This game uses the computer keyboard to test your memory. Eighteen of the 
keys each conceal a number, in the same way that a playing card, lying face 
down, hides its value. There are nine different numbers, each hidden by two 
keys. 

The symbols of the keys you must concentrate on are shown on the screen. 


QWERTY 
A S D F G H 
Z X C V B N 


Press a key and the number it is hiding will be shown on the screen: press two, 
one after the other, and if they are both hiding the same number their symbols 
will disappear from the screen. 

Your first few attempts will obviously be guesses but by memorizing the 
positions of the numbers they show, you should soon be able to work out 
where the pairs are. 

At the end of the game the computer will tell you what your intellectual 
capabilities are. 
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10 REM *** KEYBOARD MEMORY *** 

20 B $ =" ' 1 

30 R== I NT (RNB (0 > *9+1 
40 PRINT":]'" 

50 Ii IM T$ (13 > , m O 8> , Q$ <. 2 > , NN < 2 > 

60 A$~"QWERTVFlSBFGHZNCVBN" 

70 B$="153997231546682847" 

80 GOTO 500 

90 REM**COMPOSE RANDOM LAYOUT#* 

100 FOR N=1 TO IS 

110 T$<N>=MID*<A*,N,1> 

120 DI=N+R 

130 IF DK19 THEN 150 

140 ru=ni-i8 

150 m( N}=MID$ < ET,DI,17 
160 NEXT N 
170 RETURN 
180 REM**SCREEN** 

190 FOR K-1 TO 3 
200 FOR J=1 TO 6 
210 PRINT" 

220 PR I NT RI GHT$ (, 3*K > ; TfiE: < 5* J > ; 
230 PRINT T^CCK-1>#6+J> 

240 NEXTJ,K 
250 RETURN 
260 REM**INPUT** 

270 PRINT 
275 Qf<2>="" 

280 FOR KK=1 TO 2 
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290 GET KV$ 

300 IF KY$="" THEN 290 
305 IF KV$*Q$<1> THEN 290 
310 Q$<KK>*KY$ 

320 TU-TU+1 

330 REM#*TURN CARD## 

335 NN<KK>=0 

340 FOR N=1 TO IS 

350 K=I NT((N-.5}/&> +1 

360 J-N-CK-l>*6 

370 IF T$<N:K>Q$<KK> THEN 410 

380 PR I NT" JS M ; RIGHTT (D$, 3#K+1 > TAB C 5* J > ; 

390 PRINT W$<N>; 

40G HN<KK>=N 
410 NEXT N 

415 IF NN<KK>~0 THEN 290 
420 WENT KK 
430 RETURN 

440 REM##GHECK CARDS*# 

450 IF U$<NN< 1 y> OW$ <NH <2 >> THEN RETURN 

460 TE-TE+1 

470 T$(NN(1))=" " 

480 T$<NN<2 >> = ’’ " 

490 RETURN 

500 REM**MAIN PROGRAM## 

510 GOSUE 100 : REM RANDOM LAVOUT 
520 GOSUB 190'REM SCREEN 
530 GOSUB 270 : REM INPUT 
540 GOSUB 450 : REM CHECK CARDS' 

550 IF TEC9 THEN 520 

560 PRINT "OWNUMBER OF TURNS="TU 

570 END 
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Las Vegas a Go Go 

Have you ever watched someone pumping coin after coin into a one-armed 
bandit, and found yourself wondering what the fascination was? You will soon 
find out when this program turns your computer into a fabulous Las Vegas- 
style fruit machine. All the playing instructions you need will appear on the 
screen. At certain points you will be presented with a list of options, for 
instance 

INSERT, HOLD, PLAY, OR END 


Enter your choice by typing the first letter of the option you want, for instance, 
P keeps your machine playing. The reels are numbered 1, 2, and 3. If you want 
to hold one or more reels, type in the appropriate number or numbers after you 
have entered H. 

Lights will flash and music play as the wheels whiz around. Have you won 
this time? Never mind, you are sure to hit the jackpot sooner ... or later! 
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2 POKE 53281,7 
5 REM **LAS VEGFlS fi GOGO** 

1G SC=1G24•CL=55296'CF-54272 

20 DEF FNR(X> = I NT <RND(1> *X+1) : X=RND <-TI> 

10G DIMUF*< 13> , R(2, 13>, JR( 13> ' JR<5> =-1 : JR <6> =-1 JR(7 > =~1 
110 FOR V=1 TO 13 : READ UF*(V>,R<1,V>,R (2,V>'NEXT 
120 DATAfi ,,,K■,,Q,,,J,,,*,8,40.,8,40, * , 7, 30 
130 DATA "*",5,25, " *", 3 , 20, *'♦",3, 20 ■"*“32,10.#. 2, 10 , % ■ • 

200 DIM JP(4 > , JF <4 >, JC(4 > 

210 FOR J0=1 TO 4: READ JF'CJO) , JF( JO) : NEXT 
220 DRTR 293,1,294,11,296,17,297,10 

300 DIM UP < 3 >, V < 4 > , HV< 3 > • UP < 1 > =211 UP ( 2 > =213: UP < 3> =215 
310 DIM HP < 3 > , HF* < 3 > ' HP < 1 > =453 -HP< 2 > =455 ' HP <r 3 > =457 
320 H0*="3HIHIH" 

40G DIM OF 1 < 4 > , GV '14 > OF 1 < 1> =32 ' GP ( 2 > =76 : GP( 3 > = 112: r,P (4 > =69 
410 BR*=" 

500 NJ=4 NH=0 : NG=8 GU=G : NI =0 : NT=-1 

510 pl*= " Tnaa M 

515 REM 39 SPACES 

520 H*=LEFT*(PL*, 12) + ,l li»»ftfti»i»i»r 
530 FOR L=CR TO CR+24= POKE L,0 NEXT 
540 POKE CR+6,134: POKE CR+5,16 
550 HF=88 ; LF=115 ; DR=40 
560 POKE CR+24,15 
570 GOTO 3000 

599 REM INCREMENT TO MONEY 

600 FOR AD=SGN(IN> TO IN STEP SON(IN> 

610 PRINT ,, SrrOTRL •' "MO+AD"ll " 

620 IF IN>0 THEN GOSUB 2700 

630 IF IN<0 THEN FOR 1=0 TO 2 : HF=38 : LF=126'GOSUB 2700 

646 NEXT RD 

650 HF=88 : LF=115 

660 MO=MO+IN ■' RETURN 

699 REM BLINK Sl*/S2* RND GET IN* 

700 PRINT "S8SHH" SI* : FOR DE=1 TO 250: NEXT 

710 GET IN*: IF I N*0"" THEN PRINT "'&**" S2* ■ RETURN 
720 PRINT "»»" 32* FOR DE=1 TO 250 : NEXT 
730 GET IN* IF IN*0 ,: " THEN RETURN 
740 GOTO 700 

799 REM ** REMOVE DOUBLE 

800 DO=0 : PRINT"S®fl 
810 FOR J0=1 TO 4 

820 POKESC+JP (J0 >, JF (J0 > : p0KECL+JP (J0 >, 0 •' JC (J0 > = 0 ■ NEXT 
830 NJ=4:RETURN 

899 REM ** JACKPOT ** 

900 HF=64 : LF=188 

910 FOR 1 = 1 TO 4:PRINT !, J®ffiSfi &m&i" ■ 

920 FOR C=1 TO JC 
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930 PRINT “J"; GOSUB 2700 
940 NEXT C,I 
950 HF=88 ; LF=115 
960 RETURN 

1000 GOSUE 2700 ' PR I NT’TIlilTOTAL 0’ 

1010 pr i nt " < 12 >"mr -as 

1020 FOR 1 = 1 TO 4 ; PPINTTREa2>'71S 
1G30 PR I N’Ttre < 12 > " 

1040 PR I NTTFiB (12 > " : i “3 ** " 

1050 FOR 1 = 1 TO 6 ; PR INTTRB < 1 3 > " 21$ 

I960 PR I NTTRB C 12 > " If $" 

1070 PR I NTTRB ( 11 > "21$" 

1100 PRINT".^p1bIpM^ I = 1" 

1105 F'RINT 1 ' .iSfliffPlPMS' 1 
1110 FOR V=12 TO 5 STEP-1 
1120 PR I NT" ra»-" UF$ < V > NFS < V > " -= " R (1, V > 

1125 NEXT 

1130 PRINT !, «?M««en" 

1140 FOR V~12 TO 5 STEP-1 

1150 PR I NT trb < 25 > M rs" WF$ < V •' WF$ <r v > LIF$ C V >" = " R < 2, V > ; 

1160 IF JFKU? THEN PR I NT" IK J" 

1170 PRINT:NEXT : RETURN 

1199 REM ** ADAPT VARIABLES 

1200 NT=NT+1 : IF WI>0 THEN HE--1 NI=0 

1210 FOR HO= 1 TO 3: HF$ <HO: POKESC+HP < HO > , 160 : NEXT 
1220 IF DO THEN 1270 

1230 FOR JO=l TO 4 IF ,JC<JO>=0 THEN 1260 

1240 .JO < JO > = JC <. JO >- 1 ; IF JC(JO>>0 THEN 1260 

1250 NJ=N J+1 : POKESC+JP ■' JO> JF < JO > : POKE CL+JP( JO) , G 

1260 NEXT JO GOTO 1280 

1270 DC=DC-1 : IF DCO0 THEN GOSUE 800 

1280 PRINT" Xmi®] 1 ' SPCdl) 11 

1290 IF JR THEN JC=JC-1 PRINT’^eHSTSI" SPCXJC? “ " : IF JC<*0 THEN JA« 
1300 IF MO>MM THEN MM=MO 
1310 RETURN 

1399 REM ** HOT ENOUGH MONEV 

1400 HB=-1 : GOSUB 800 
1410 JA=0 : F'R I NT " 

1420 PRINT PL$ TABC 10) "INSERT OR END"; 

1430 Sl$="INSERT <I>":S2$=BR$ : GOSUB 700 
1440 IP IN$="P" THEN 1430 
1450 RETURN 

1499 REM ** HOLD POSSIBLE 

1500 PRINT F’L$ TfiBC5)»" INSERT, HOLD, PLAV.- END"; 

1510 SI$=H$+HQ$ ■ S2$-H$+HF$< 1 > +" m " +HF£< 2 !> + "IH"+HF$ < 3> 

1520 GOSUE 700 • HO= VFIL <1NSO- : JF HO=0 OR H0>3 THEN RETURN 
1530 NH=NH+1 ; IF HF$<HO>=" " THEN HF$<HO" 2U" ; GOTO1510 
1540 HF$<HO>=" " 


I " NEXT 

NEXT 
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1556 GOTO 1516 
1599 REM NO HOLD 

1606 PRINT PL$ TREKS.' 1 "INSERT, PLRV OR END"; 
1610 SIT= ,: M???" : S2$= "» " : GOSUE 700 

1620 RETURN 

1699 REM ** GAMBLE OR COLLECT 

1700 PRINT PL$; : IF HE THEN 1726 



1710 PRINT TAB<10) "HOLD, "; 

1720 PRINT TABC12) "GAMBLE,COLLECT", 

1730 GOTO1610 

1799 REM SPIN GAMBLE NHEELS 

1300 FOR ND=1 TO 3 : IF HF$(MDX> ,! " THEN 1830 

1810 FI=FNR(100) : IF FI<5 THEN V<ND)=FI-8*(JC(FI)>0>•GOTO 183G 

1820 V<ND) =5-(FI>7)-<FI> 10>-(FI> 13>-<FI>23>-<FI>36"'-(FI>49>-(FI>68)-(FI>87> 

1830 FOR DE=2 TO 500 : NEXT:HF=40 : LF=200 : GOSUE 2706 

1840 POKE SC+NP(ND),(ASC(NF$(V(ND)))ANDS3> 

1856 PRINTH* "miai" SPC<WP(ND)-NP(1)) NF$(V(ND>> 

I860 HF=88 : LF=115 
1870 NEXT ND : RETURN 

1899 REM ** TAKE CARE OF JOKERS 

1900 J=0 : FOR ND=1 TO 3-V=V(ND) 

1910 IF V>4 THEN FV=V=GOTO 1950 
1920 JW*ND:J=J+1 

1930 IF JC(V>>0 THEN 1950 

1940 PR I NT " SSHS" SPC (JP < V ) -80 ) " m " : JC ( V ) =20 ; NJ=NJ-1 
1950 NEXT ND : DO=(NJ-0) ; IF DO THEN DC= 15 : PRINT 1 "SMiDOUBLE ! " 

I960 RETURN 

1999 REM m COMPUTE NINNINGS 

2000 HV-13 : ON J GOTO 2030,2010,2070 
2010 IF NOT(JA AND FV>10) THEN HV=FV 
2020 GOTO 2070 

2030 V ( 0 )=V ( 3 ) • V ( 4 ) =V ( 1) : IF J A AND V < JN-1) OV < JN+1) THEN 2070 
2040 V(0)=15 : V(4)=15 

2050 IF V(JN+1)>V<JN-1) THEN HV=V(JN-1)■GOTO 2070 
2060 HV=V<JN+1) 

2070 FOR ND=1 TO 3 : HV<ND)=V(ND) : IF V(ND><3 THEN HV(ND)=HV 
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2080 NEXT WD : IF HV<l>OHV<2> OR HV<2>OHV<3> THEN 2100 
2090 IF Jfl<HVCl>) THEN JR*-1 •' JC-15 • GDSUE 900 

2099 REM #* COMPUTE WINNINGS 

2100 FOR LID*1 TO 3:IF HVOdD>»13 THEN WI=WI+1 
2110 NEXT WD : IF JR THEN WI=10*WI 

2120 NS=-< HV C1>*HV<2> >-<HV<2 >=HV<3>>•WI=WI+R< NS,HV<2>> 

2130 IF DO THEN WI=2*UI 
2140 RETURN 

2199 REM ** GAMBLE 

2200 DT=1 ■•GVa>=2*WI : GV<2>*0 = GVC3> = INT<3#WI/2> : GV<4>*INTCWIX2) 

2210 NG=NG+1 : PRINT PL* TABC8) " STOP " 

2220 FOR LI = 1 TO 3--PRINT"»" SPC<40*LI-12> "SS " NEXT : REM 12 SPACES 

2230 R=«R+1-IF R>4 THEN R=1 

2240 PRINT"5SS" SPCCGPCR)> GV(R>■HF=16*R■LF=47*R:GOSUE 270O PRINT"SWOT " 

2250 IF IN*0"S" THEN GET IN^GOTO 2270 

2260 DT* 8 < 1+RND<1>> #DT : FOR DE=1 TO DT'NEXT : IF DT>500 THEN 2280 
2270 PRINTSPC(GPCR>+1) " "GOTO 2230 

2280 HF*8S : LF=115 •' FOR LI = 1 TO 3 : PR I NT "is?" SPC<40*LI-12> " "NEXT 

2290 GW“GW+GV < R > -WI : WI *GV < R :< : RETURN 

2399 REM ** END OF GAME 

2400 PRINT"H" ; HF=19 : LF=63G0SUB 2700 
2410 PRINT"PUT IN : "i : X=NI : GOSUB 2500 
2420 PRINT"GOT BACK :: X a M0X4'GOSUB 2500 

2430 PR I NT "MAX AT ONE TIME : : X==MM/4 ; GOSUB 2500 

2440 PRINT"BV GAMBLING ; ; X=GN/'4 : GOSUB 2500 

2450 PR I NT "NR. OF HOLDS' " NH 

2460 PR I NT "NR. OF GAMBLES’ "NO 

2470 PR I NT "NR. OF TURNS : " NT 

2480 RETURN 

2500 IF X=0 THEN X$=BR$+".000" ; GOTO 2520 
2510 X$*BR$+STR$<INT <X*100 >/'100+.001> 

2520 PRINT TABOSC- MID$<X$, LEN<X$W, 7> : PRINT 

2530 RETURN 

2600 PR I NT" S3" SPC<20>; GOSUB 2660 

2610 FOR I —0 TO 3 = PR I NT "HI SWiP "GOSUB 2660 ■ NEXT 
2620 FOR WD=1 TO 3 : IF HFTCUD> = " " THEN POKE SC+WPCUIO,32 
2630 NEXT WD 

2640 FOR 1=0 TO 3 : PR I NT "If!® !“lfcsS "; GOSUB 2660 NEXT 
2650 RETURN 

2660 FOR DE=0 T 0 80 •’NEXT 
2670 RETURN 
2700 REM *SOUND* 

2720 POKE CR+1,HF : POKE CR,LF 
2735 POKE CR+4,17 
2748 FOR T=1 TO DR : NEXT 
2745 POKE CR+4,16 
2750 RETURN 

2999 REM *** MAIN PROGRAM 
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3000 GOSUB 1000:REM SCREEN 
3010 GOSUB 1200 REM RBRPT 

3620 0N -2*H B ■- CM0> 1 > +1 G 03' J B 1 4 00 •: 5 g 0 ,14 00 . 16G8 
3030 CR-- ■: I N*= " I !l > -2 * C I n*= " P" -3+' I N*= "E ,: -■ 

3040 ON CP G 0 tq gigg 3200-4000 

3 g 5 0 G 0 T 0 3 020 

3100 NI — I +1 IN-4 GOSUB 600 

3110 IF MOSMM THEN MM=UO 

3120 GOTO 3020 

3200 IN--2 : GOSUB 600 

3 2 1 0 G 0 S U B2600: G 0 S U E 18 G 0 R E M S P J N Lg w E E L S 
3220 IF IiO THEN 3240 
3230 GOSUB I960 REM JOKERS 
3240 G0SUE 2000:REM WIMNJ NGS 

3250 IF HFT (1 TO" " OR HF*C2>0 ,: " O p l -F*’:'3 * •* THEN 3280 

3260 HB=0 •' LW=NI IF WI>0 THEN 3300 
3270 GOTO3010 

3280 HB=-l:IF UISLLi T HEN 3300 

3290 PR I NT" mmt&K " SPC C 11 :• '' hqij LOST " HF.*2 1 lf=m.54 GOSUB 2700 FORI =0TQ2000 

3295 NEXT•HF=S8 : LF-115'GOTO 30 1 0 

3300 PRINT ,, MTO!l«i" SPC Cl 1-' 'V 0 U (WT-il "|s 

3310 FOR BU=1 T 0 L'l HF= 103 • LF=223: GOSUB 2708 FOR 1=0 TO 50 NEXT HF =88 LF=115 

3320 NEXT IHJ 

3330 IF M0<2 THEN HE=-1 

3340 IF UI>499 THEN 3400 

3350 GOSUB 1700 REM GET INSTRUCTION 

336u CFi~~ C I NT=" H ” RND NOT HB ) —2 # ( I NT - " G " >— 3 + <I NT -C " . 

3370 ON OR GOTO 3600,3500■3400 
3380 GOTO 3340 

3400 IH=UI:GOSUB 600 : GOTO3018 

3580 HB=-1 : GOSUB 2200 REM GAMBLE 

3510 IF WI30 then 3300 

3520 GOTO 3290 

3600 W1=0:GOTO 3010 

4000 GOSUB2400 ■' REM END 

4005 POKE 54296.0 

4010 END 
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Parrot 

PARROT is a very simple competition game. Play it on a rainy day with a friend 
(especially after your friend has had a few beers!). 

At the start of the game, your computer impertinently asks you: 
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ARE YOU READY PARROT? 


Yes, he is calling you a parrot! Press any key and the computer immediately 
displays a letter. You must enter the same letter as fast as you can. Since you 
copy each letter, you really are a parrot! The game is repeated for about 10 
seconds, and then the computer shows your score. 

How good are you as a parrot? Have a competition with your friends and 
try to win the title of ‘Super-Duper Parrot’. (My record is 19 — I teach 
parrots!) 


10 REM **PRRR0T** 
20 PRINT "nw 
30 PRINT 
40 PRINT 
50 PRINT 
60 PRINT 
70 PRINT " Jfl" 

75 PRINT 
30 R=65 : B=26 
90 C=1 
100 PRINT " 

110 GET fi$■IF A$=" 


" spcaova* 

■■ spcaovar 

" SPCX 1Q> "IS 
" spccig) "a 
11 spc( 10) "a " 

SPC<10) "SPARROT" 


RRE YOU READY PARROT? 
THEN 110 


120 PRINT 
130 T=TI 

140 X*=CHR*<A+B#RND<1>> 


145 PRINT )<$:• 


150 GET R$=IF AfOXf THEN 150 
160 IF TI-T>600 THEN 130 
170 C=C+1 : GOTO 140 
180 PRINT 

130 PRINT "SCORE : ":C 

200 PR I NT " TI ME ■' " '• I NT ■' < TI -T > /. 6 > / 100: " SECOND^ " 
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Kentucky Derby 

Ladies and gentlemen, they are off! Red Arrow is off to a good start . . . 
Blondish Boy is giving his jockey some trouble . . . and there’s the famous 
Spanish Lady, on the inside track. This is really first class excitement, and 
we’ve only just begun! Coming round the first bend . . . Mickey Finn has taken 
over the lead, hard-pressed by Speedy Gonzales . . . 

The Kentucky Derby is a horse-racing game. There are not as many horses 
in our Kentucky Derby as there are in the real race — in fact, there are only 
three — but they have to run 10 gruelling laps (with computer horse-racing 
anything is possible)! At the start of the game the odds are given for each 
horse. Now you can place your bets. As long as you have money you can bet 
again and again — these horses never get tired. 

After the RUN command we see: 

YOU MAY BET NOW 

THE ODDS OF THE HORSES ARE 

HORSE 1: 10 to 1 

HORSE 2: 4 to 1 

HORSE 3: 20 to 1 

(odds may vary from race to race). 

YOU STILL HAVE . . . DOLLARS 
YOUR BET ON HORSE 1 IS . . . 

When you have run out of money, your computer cheekily tells you: 

YOU CANNOT SPEND THAT MUCH 
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And if you are a little better off: 


YOU STILL HAVE . . . DOLLARS 


Immediately after you enter all your bets the screen displays the racetrack, with 
horses at the starting gates. The odds and bets are displayed in the lower part 
of the screen and then you will see: 


START??? 


Press ENTER and they are off! 


I put my money on the bobtailed nag 
Somebody bet on the bay 


10 REM ***KENTUCKY DERBY*** 

20 B$=" ' ! 

30 GQSUB1400 

200 REM **MflIN PROGRAM** 

220 PRINT "IT.; 

230 GGSUB700 
250 GOSUB1200 
260 PRINT" "D$"TTTJ 
270 GOSUB2000 
280 GOT0400 

330 PRINT" "D$"TTTT-!0RSE "WI" HRS NON !!!!!!> 

331 FORH=1TO3000■NEXT 

335 CR=0R+1CUiI >*P < WI > 

336 RESTORE 

337 FORIJ-0TO5 : POKEV+U, 0 ■ NEXT 

338 Y1=60 : Y2=100 : Y3=140 

339 X1~0 : X2=0 •' X3=0 

340 IF CR>0 THEN 230 

350 PRINT'TJr'OU FIRE RUINED ! W" 

360 PRINT"I HOPE YOU'VE LEARNED" 

370 PRINT"YOUR LESSON." 

380 END 

400 REM#*M0VE ONE STEF 1 ** 
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T7£=RND ( TI > *3+1 

fl1=3 : A2=3 ; A3=3 

IFTX=1THENA1=5 

IFTX=2THENA2=5 

IFTX=3THENR3=5 

X1-X1+A1 : X2=X2+A2 • X3=X3+A3 

IFX1>252THENX1=0■V1=60 01=01-1 

IFX2>252THENX2=0 V2=100 C2=C2-1 

IFX3>252THENX3=0•V3=140■03=03-1 

I FX 1 > 110 AND X1 0 120 THEN V1 = V1 -02 ■ U1 = 14 = X1 =X 1 -R1 +2 : POKE V.. X1 : X1 =X 1 + 
IFX2M10 AND X20120 THEN V2=V2-02 • U2=14 •’ X2*X2-R2+2 : POKEV+2, X2 • X2=X 
IFX3>110 AND X30120 THEN V3=V3~02•U3=14'X3=X3~A3+2•POKEV+4,X3 : X3=X 

I FX 1 160 AND X1 0 170 THEN V1 = V1 +02 ' U1 = 14 : X1 =X 1 - R1 +2 ■ POKE V, X1 ■ X1 =X 1 + 

I FX2> 160 FIND X20170 THEN V2=V2+02 : U2= 14 : X2=X2-A2+2 ■ POKEV+2 . X2 : X2=X 

IFX3> 160 AND X30 i 70 THEN V3-V3+02 : IJ3= 14 : X3=X3-A3+2 POKEV+4, X3 • X3=X 

IFX1 >= 120 AND X10-160 THEN U1=14:X1=X1-R1+2:POKEVVXl'X1=X1+2 
I FX2>= 120 FIND X20= 160 THEN U2= 1 4 : X2=X2-A2+2 : F‘OKEV+2, X2 •' X2=X2+2 
IFX3>=120 FIND X3O1S0 THEN U3=l4 : X3-X3-R3+2 ■ POKEV+4, X3 X3=X3+2 
IFU1 = 14THEN !J 1 = 13 ■ GOT0510 
LI 1-14 

IFU2=14THEN U2=13'GOT0528 
02=14 

IFU3=14THEN 03=13•GOTQ530 
U3=14 

POKE2040, 01 : POKE2041, U2 •' FOKE2042, IJ3 
POKE'.', XI : POKEV+2, X2 ' POKEV+4, X3 
P0KEV+1, V1 ■ F'OKEV+3, V2 : POKEV+5 V3 
IFC100THENW1=1'OOTO330 
IFC200THENNI =2 00^0330 
IFC30OTHEN I'll -3 •' G0 T 0330 
GOTO400 

REM***INITIRLIZE HORSES*** 

WI=0 

F0RK=1T03 

X < K> = 20 

Cl=1-02=1 03=1 

P K = < I NT C RND (0 > *5 :• + 1 ' ,-'5 

V •• K ==FK > *DV+VN 

T <K> =5*00-1 -'+3 

NEXT K 

REM***MAKE BETS*** 

FT=0 

F0RI=1T03 
P(i )=(:i V-++-.IVDV 
PT=PT+P '• I > 

NEXT I 

F0PK=1T03 

POO = I NT (. RT,-‘P c !•:■;> ■ 

NEXTK 
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990 

I 0 00 P R I H T " m f * if if if f f f f f * f if if :f if fffff.f ’ 

1010 PRINT" you MRv BET NON" 

1820 PR I NT 1 ' f f if f * f f f :f if f f f ****f * if f f * " 

1030 PRINT 

1048 prin t: 'the odds of t he hopees" 

1058 PRINT 1 PPE “ 

1000 PQRI-iTO3 

187G PR I NT"HORSE "; I ;" ",P<I:• "Tn i- 

1080 NEXTI 
1090 PRINT 

1100 PR I NT " VOU STILL HAVE" : CP : "SJ DOLLAR “ 

1110 FOR I = : 1T03 

1120 PRINT"VOUR BET ON *' 

1125 PRI NT"HORSE",I: 

1130 INPUTI(I> 

1148 RE=CR--ia> 

1150 IFRE08 THENPRINT"VOU CANNOT SPEND THAT MUCH ":GOTO1120 

II EG CR=CR- Id): PR I NT" ^^IPIPIpIpHPIWt'OU ST ILL HAVE" ; OR j " ID DOLLAR 
1170 NEXT I 

1180 RETURN 

1200 REMfffSCREENfff 

1210 PRINT "73"; 

1220 PR I NT" 1 ’ 

1230 PRINT"W" 

1240 PR INT"M" 

1245 PRINT:PRINT 

1250 PRINT"-" 

1260 PR I NT " RATE : "P C 1 ) : TAB C 12 > ; P < 2 > TAB <18> ,P(3 > 

1270 PR I NT" BET : "I a :•TAB(12); I <2>; TABU8> ; 1(3) 
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1280 PR I NT LEFT $ < B $, t -r j .-3 > , "- 

1280 F0RK=1T03 

1325 PRI NT LEFT $( D*,T<K>+3)," 

1330 PR I NT LEFT* ( H $, T < K >+4-- 

1340 NEXTK 

1341 PR I NT "■S3" 

1342 FOR R=1T016 : PRINTTFIB<27>; "raa B 

1343 NEXTR 

1344 PRINTTAB<27>.; "BiS FINISH Sl" 

1350 INPUT"START????"; A* 

1370 RETURN 

1400 REM*##INTIALIZE*** 

1420 VN=2 ; DV=1 ' VU=2 
1430 V1 =60 •• V2-100 •• Y3= 140 
1440 CR= 100 ■■ IJ1 = 14 : U2= 14 : U3= 14 
1450 X1 =0 •' X2=0 : X3=0 
1460 RETURN 

2000 FORN=0TO62 ' REFlDQ : P0KE832+N, Q : NEXT 

2005 FORN=0TO62:READQ : P0KE896+N,Q NEXT 

2010 DATA 0,00,0,0,0,0,0,0, 0 ,0,24 

2020 DATA 0, 0 ,52,0, 0 ,126,0, 0 ,246,3,255,224 

2030 DATA 7, 255, 1 S'2,15,255, 128,31,255, 128,38,1,128 

2040 DATA 76,0,192,24,0,96,48,0,48, 0, 0, 0 

2050 DATA 0,0,0,0, 0 ,0,0,0,0,0,0,0,0.0,0,0,0,0 

2060 DATA 0,0,0,0, 0 , 0 ,0, 0 ,0, 0 ,0,24 

2070 DATA 0, 0,52, 0, 0 , 26,0, 0,246,3,255,224 

2830 DATA 7,255,192,15,255,128,31,255,128,38,1,128 

2098 DATA 67,3,0,3,134,0,0,204,0 

2095 DATA 0,8,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 

2100 V=53248:POKEV+21,7■FORM=2040T0£042 : PGKEM,13■NEXT POKEV+33,8 
2105 POKEV+23,7■POKEV+29,7 
2140 F’OKEV+40, 13 
2150 RETURN 
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Rainbow Square Dance 

A two-dimensional cube? Impossible of course, but this game, played on the 
computer screen, is similar in many ways to Rubik’s Cube. 

You will see 25 colored squares arranged at random on a 5 x 5 board. The 
rows of squares on the board are numbered like this: 



6 7 8 9 0 


That is, the horizontal rows are numbered 1 to 5 and the vertical rows 6, 7, 8, 
9, and 0. When you enter the number of a row, the squares in that row are 
moved one position. In a horizontal row the squares move to the right, and in a 
vertical row they move downwards. As a square disappears off one end of a 
row it reappears at the other end, like this 


V_ J 


in a horizontal row, or this 
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in a vertical row. 

The object of all this? You must rearrange the squares to form five hori¬ 
zontal stripes of one color each. Sounds simple . . . but is it? 

10 REM**RAINBOW SQUARE DANCE** 

20 PRINT "73" •' POKE 36879,59 

30 DIM AX<5,5) : FDR 1=0 TO 4 READ AX : FOR J=0 TO 4 AX<I,J)=AX : NEXT J, I 

40 DATA28,5,31,158, 3G 

50 : REM RED,WHITE-BLUE,VELLOW,GREEN 

60 GOTO 510 

100 REM**SCREEN** 

110 PRINT —7—8—9—0—," 

120 FOR 1=5 TO 1 STEP -1 : PRINT SRC(10) " !"JSPC(15)," I " 

130 A$=R1GHTS<STR$(I),1):PRINT SPC(10) A$18PC(15);A$ 

140 PR I NT SPC ( 10) " I " ; SPC ( 15 ) " I" 

150 NEXT •• PR I NT " '-6—7—8—9—O-' " 

160 PRINT " jsS", : FOR 1=0 TO 4 ' FOR J=1 T 0 3 : PRINT : PRINT SPC<10) " 3*1" • FOR K=0 TO 4 

170 PR I NT CHR* ( A"; ( I - K ) ) : " ' , ■ NEXT K , ..T, I 

180 RETURN 

200 REM**SHIFT** 

21G F0R 1=5 T0 1 STEP -1 AX(A,I>=AX<fl,1-1- NEXT 
220 AX<P, 8) =AXA, 5) ■ RETURN 

230 FOR 1=5 TO 1 STEP -1: AX ( I , A ) =AX <1-1,A)■NEXT 
240 AX < 0■ A)=AX (5, A) RETURN 
500 REM**MRIN PROGRAM** 

510 GOSUB HO • FOR W=0 TO 20 A= TNT•'T*RNP< 1 > '■< ON 1+2*RND<1) GOSUB 23.0,230 • GOSUB 16 
0 : NEXT U 

520 GET A*: IF A:£="Q" T HEN SVS 65234 
530 fl=VAL<A$"' : I r AT = "0" THEN A=10 
540 1“ P—0 " r HEN T50 


27 






Qui Vive 


To be ‘on the qui vive’ means to be alert and watchful. This game is called QUI 
VIVE because to play it successfully you must always be on the look out for 
winning situations. The rules are very simple but the program needed to imple¬ 
ment them is anything but. In fact, it presents quite a challenge to a games 
programmer. 

QUI VIVE was invented by Eugene de Wolf and is played on a square 5x5 
board. Each player has five checkers and must try to arrange them into one of 
seven symmetrical patterns. These are: 




a horizontal line, e.g. 


a vertical line, e.g. 


29 






a diagonal, e.g. 



•—•—• 

I 

a rectangular cross, e.g. • • 


a skew cross, e.g. 
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a vertical wing, e.g. 



At the start of the game the board is empty and you and the computer take 
turns to place checkers on it. The positions on the board are labelled like this: 


© 

1 

2 

3 

4 

5 

© 

6 

7 

8 

9 

10 

© 

1 1 

12 

13 

14 

15 

© 

16 

17 

18 

19 

20 

© 

21 

22 

23 

24 

25 


© 

® 

© 

© 

© 
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To place a checker at any particular position simply enter the appropriate 
coordinates: for instance for position 21 enter A1, for position 12, B3, etc. 
Your checkers are indicated by O and the computer’s by • . 

If all ten checkers have been placed on the board and no one has won, the 
game continues, with you and the computer taking turns to move checkers to 
try and gain a winning position. To move one of your checkers you enter the 
coordinates first of its present position and then of the position to which you 
wish to move it. 

You must keep a look out for chances to make a winning pattern yourself, 
at the same time making sure that you are blocking any winning moves by the 
computer. 

The program is one of the most interesting in this book. It contains a list 
of not only all 42 possible winning patterns but also over 100 particularly 
strong situations from which a player has a chance of making either one of two 
winning patterns. During the game the computer monitors this list in the light 
of the situation on the board and assesses what its best move is. 

We advise you to play this game on an ordinary checkerboard against one 
of your friends before you take on the computer. You will soon see what a 
superb game it is. 


10 REM***QUI VIVE*** 

20 P0KE646, 13 

30 DIM SF<41.. 4> , SO<4i> 

40 DIM D <107, 1 > .• DF < 15.• 3> 

60 DIM CC< 4,1>,BC 24>.C<241 
70 GOTO 3000 

100 REM**COMPUTE POINTS OF DF** 

1 1 0 GV-0 P 1 =0 : P2-0 ' C 1 = 0 : 02 = 0 
120 D1 = B < DF < NF, 0 > > : D2=E < DF < NF, 1 :• 

130 IF D1=1 OR D2=1 THEN Pl=l 
140 IF D1=10 OR D2=10 THEN 01=10 
150 D1=B<DFCNF,2>>•D2=B<DF<NF,3>> 

160 IF D1=1 OR D2-1 THEN P2=l 
170 IF D1=10 OR D2=10 THEN 02=1G 
180 GV=B (DF < NF, 4 > > +B (DF < NF, 5 > > +B '• DP (NF, 6 i:- > 
190 P=0V+R1+R2+C1+02 
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200 IF GV-30 AND 01:1=0 OR 02=0) THEN P=P-10 
210 IF G’v-3 A HP < P1 =0 OR P2=0> THEN P=P- 1 
220 RETURN 

300 REN*#INITIALIZE SINGLE FIGURES** 

310 FOR 1=0 TO 41 : READ XT 
320 FOR J=1 TO 0 

330 SF <I,,T-1 > = ASC < MI D$ ■' XT, T, 1 > ' - FT 

340 NEXT J, I :RETURN 

350 REM WINGS (AV>0 

360 DATA UQMSV .< PLHNTKOCI Cl 

370 DATA AGMIE . FLRNJ .• KQWSO 

380 DATA AGMQU, EH NR'.' • C108W 

390 DATA EIMSV .■ DHLRX • CGKQW 

400 REM TIMES <X> 

410 DATA ACGKM, BDHLN.. CEI MO 
420 DATA FLHF’R t GIMQS .■ HJNRT 
430 DATA KMQUW,LNRVX,MOSWV 
440 REM PLUS (+> 

450 DATA EFGHL,CGHIM,DHIJN 
468 DATA G K LMQ,HL MNR, IMN0S 
470 DATA LPQRV,MQRSW,NRS T X 
480 REM DIAGONALS 
49G DATA FlGMSV .■ EIMQU 
500 REM COLUMNS < I> 

510 DATA AFKPU,BGLQV,CHMRW 
520 DATA DINSX .■ E-JOTV 
530 REM ROWS <-> 

540 DATA ABODE,FGHIJ/KLMNO 
550 DATA PQRST, UVUIXV 
555 REM 

560 REM **INIT DOUBLE FIGURES** 

570 FOR 1=0 TO 107 STEP 12 : READ XT 

580 FOR J=Q TO 1l:FOR K=0 T 0 1 

590 L=2*J+K+LIin+.T, F = ASC €MID$ < X •$ . L, 1) >•••■ 49 

600 NEXT K, J,I 

610 RETURN 

620 DATA "171:1A1C1E1M1O1P2>202E2J" 
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638 URTfl •■393<3=3?3G4?4 4=474R4Q40 



6?0 I'iRTp ''r 5 -T = ;jrU 1 % t 77 k- r.p 0 pra 7ra[_ 1 

630 2 a to " rgr : RKflMflORPBHE JENCI C'MCP' 

698 PRTR " IiJPL3MEKEMEOFPFl,.030l,.lHTHL> 1 ' 

708 pRTP ' 1 T P T •:,*.T3 t k- r k- vc-1_ vj-ncf.iy•; r v ; , ■ ■ 

790 REM 

308 REM **CC"iP . ”E O'’ r * ’ ' 

810 TC=4 : TN—0 

820 FOR 1=0 TO 4 • C <SF < P < p f 0 , j ;■ ,=| next 

830 FOR 1=0 to 4 3 p= 9 F < p ( pr i . I 

840 IF CC#F>=1 THEN 360 

850 PF>:NF, IN>=3F TN=TN +1 : GCitq 

860 PF C NF, TC > =SF ■ Tr=Tr : +1 r ■" s r "■-d 

870 NEXT I 

880 FOP 1 = 0 TO 4 1 SF=SF ■■ P> PF.. 0 . T ■ 

890 IF C■:3F= 1 ^HE k - 3 p.’mf. TN= 3 r T: -i= T ^- j. C3F • = 0 

900 NEXT I:RETURN 

1000 REM##DI3PLFV BOARD** 

1005 PRINT SRC'■ 12"■ "W C »BCPE:W :! 

1010 FOR 1=0 TO 4 PRINT SPC<12>5-I. FOR J=0 TO 4 
1020 F=I#5+J 

1030 IF EkF>=0 THEN PRINT . 

1040 IF Bk F> = 1 THEN PRINT *o«’. 

1050 IF B<F> = 10 THEN PRINT "* t: . 

1060 NEXT j:PRINT 5-1 NEXT I 
1070 PRINT SPO'• 12> "W RBCBEW" 

1080 RETURN 

1100 REM#*BETERMINE GUNE* OF SF'S** 

1110 OM=-l : UIM=~1 
1120 FOR SF=0 TO 41 

1130 P=E < SF k SF, 0 > '• +B ( SF < 3F, 1 > ■ +B >' SF ( SF, 2 > -B k SF k SF, 3 > > +B k SF ( SF ■ 4 > 

1140 IF P —0 OR P— 10 OR P=20 OR p= 30 THEN SOkSF> = 10 ; GOTO 1240 

115G IF PO40 THEN 1190 

1160 GOSUE 1250 

1170 GOSUE 1290 

1180 WM=1:SF=41 : G0 T 0 1240 

1190 IF P>20 OR PC3 OR P=ll OR P=12 THEN SOkSF>=0•GOTO 1240 
1200 S0<SF>=1 

1210 IF p=4 RND OM=-l THEN GOSUE 1250 
1220 IF P= 1 4 THEN GOSUE 1290 
1230 IF P=5 THEN SF=41 
1240 NEXT SF'RETURN 

1250 REM**BETERMINE OBLIGATORY MOVE < ON ;> ** 

1260 FOR 1=0 TO 4 

1270 IF BkSF(SF,I>> =0 THEN OM=SF<SF,I> 

1280 NEXT I : RETURN 
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1290 REM**DETERMINE PINNED CHECKER** 

1300 FOR J—0 TO 4 

1310 IF E<SF(SF,I)>010 THEN 1350 

1320 FOR J=0 TO r.'C-l 

1330 IF SF'lSF, I > =CC< J , 0 > THEN CC ’• J , 1 > = 1 
1340 NEXT J 
1350 NEXT I 
1360 RETURN 

1400 REM**DETERMINE ONNER OF DF"'S** 

1410 NC=0 •' NP=0 : NF=0 
1420 FOR 1=0 TO 15 
1430 DF <1,8> =-1 
1440 DF( I .■ 7>~0 
1450 NEXT I 
1460 FOR BF=0 TO 107 

1470 01 = so (n (n f , 0 : n 2 =s 0 n < n f , 1 :• :> 

1480 IF 01002 OR 01=0 OR 02-0 THEN 1600 
1490 OOSUE 800 
1500 GOSUB 100 

1510 IF R=4 OR P=14 THEN DP CNF■ 7> = 1'GOTO 1540 

1520 IF 01 = 1 OR PODF ( NF, 8> THEN 1600 

1530 DF(NF,7>=10 

1540 DFCNF, 8>=P 

1550 NF=0 

1560 FOR 1=0 TO 15 
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1570 IF DF<! I8>>=DF < NF.. 8> THEN 1590 

1580 IF DF< I.. 7 > =0 OR DFCI .• 7010 THEN NF=1 

1590 NEXT I 

1600 NEXT DF 

1610 RETURN 

1800 REM**DETERMINE STRATEGIC VALUE OF MOVE** 

1818 IF UM=1 THEN I960 

1826 MC~0 : N2--0 

1830 FOR HF=0 TO 15 

1840 IF DFCNF, 7 00 THEN 1900 

1850 GQSUB 100 

I860 IF DF’■ NF .• 7O = 1 THEN 1890 




1870 IF p=M C T hi E N N 2 -K 2 1 
1880 IF ROMO THEN MOP • N2® !. 

1890 IF p-4 THFi-.i kif =15 

3.900 NEXT NF 

1910 IF PP=-1 THE ki .’960 

1920 IF P=4 THEN RE T URN 

1930 IF MC<MP THEN RETURN 

1940 IF MOMP AND N2CN1 THEN RETURN 

1950 IF MOMP AND N2N1 AND RND<0<.5 THEN RETljRN 

I960 MR-MO : N1-N.2 

1970 PP=CP:RT=CT 

1980 RETURN 

2000 REM**PLAVER MOVE** 

2010 IF PC05 THEN 2050 

2020 PRINT "WHICH CHECKER DO VOU WANT TO MOVE"; 

2030 GOSUB 2130 : PT=X 

2040 IF E<FT)01 THEN PRINT"NOT POSSIBLE" : GOTO 2020 
2050 PRINT"WHERE DO VOU WANT TQ PIJT VQIJR CHECKER"; 
2860 GOSUB 2130-F'FoX 

2070 IF BCPP>O0 THEN PRINT "not POSSIBLE" : GOTO 2050 
2080 IF POS THEN BCPTO0 



2030 IF PC<5 THEN PC=PC+i 

2100 EC PP > - 1 

2110 GOSUE 1000 

2120 RETURN 

2130 REM##INPUT*# 

2140 INPUT XT : IF LENCXTX>2 THEN 2130 
2 150 L$=LEFT$ CXT,1>:Ii3=R IGHT $ CXT,1> 

2160 IF LT<"Fl" OR L$>"E" OR DTC" 1" OR riT>"5' ! THEN 2130 
217G X=ASCCLT> ■-5*VRLCD* >-40 
21S0 RETURN 

2190 PRINT "WRONG INPUT, » : PRINT"TRV RGRIN : " : GOTO 2140 
2200 REM##COMPUTER MOVE** 

2210 IF CC<5 THEN PT=CC ; CC=CC+1 : GOTO 2270 

2220 PR I NT SPC < 10 > " I TRKE " CHRT < 65+PT-1 NT CPT/5 > *5 >; 3-1 NT C PT/5 > 

2230 ECPT> =0 

2240 FOR CI=0 TO 4 

2250 IF CCCCI , G>«PT THEN PT=CI:CI=4 
226G NEXT Cl 

2270 PRINT SPC C 1 0 > " I PUT IT RT " CHRT < 65+PP- 1 NT < PP/5 > *5 > 5- 1 NT C PP,- 
2280 B<PP) = 10: CC C PT,0> =PP 
2290 GOSUE 1000 
2300 RETURN 

3000 REM##MRIN PROGRAM** 

3010 PRINT SPC(12>"PLEASE WRIT" 

3020 GOSUE 300 

3030 GOSUE 560 

3060 CC=0 : PC=0 

3070 PP=12 : GOTO 3300 

3080 FOR 1=0 TO 4 :CCa , 1 >=0 NEXT 

3090 GOSUE 1100 

3100 IF P=5 THEN END 

3110 IF WM=1 THEN 3130 

3120 GOSUE 140G 

3130 MP=G : N1=0■PP=-1 

3140 BF=0 ; EF=24 

3150 IF GMO-1 THEN BF=OM : ER-OM 
3160 FOR CP=BF TO EF 
3170 IF B C CP>O0 T HEN 3290 
3200 E CP> = 10 

3210 IF CCC5 THEN GOSUE 1800 : GOTO 3280 

3220 FOR CI=0 TO 4 

3230 IF COCCI,1> THEN 3270 

3240 CT=CC C CI .• 0 > E C CT >=0 

3250 GOSUE I860 

3260 BC CT > = 10 

3278 NEXT Cl 

3280 BCCP::-=0 

3290 NEXT CP 
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3300 GQSUB 2200 
3310 IF WM=i THEN END 


3320 GOSUB 2600 

3330 PRINT SPC < !2> "PLEASE WAI T 
3340 GOTO 3080 
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STM 


The nature of memory is certainly one of the most interesting topics in psychol¬ 
ogy. To remember something has been defined as ‘to show in present responses 
some signs of earlier learned responses.' Why, though, do we remember some 
things and forget others? We may recognize someone we haven't seen in years, 
or call to mind a tune having heard only a few notes of it, but find it very 
difficult to remember, for instance, a telephone number. There are in fact two 
distinct types of memory: short term memory (STM) and long term memory 
(LTM). If you want to find out more about this intriguing topic we recommend 
that you read Introduction to Psychology by Hilgard & Atkinson. 

This game tests your short term memory. Play it with your friends and 
family and see who can remember most. You will see this ‘menu' on the screen: 



DO YOU WANT TO PLAY WITH 

1. LETTERS? 

2. NUMBERS? 

3. 0 OR 1 ONLY? 

4. OR DO YOU WANT TO STOP? 


Now you make your choice by entering 1, 2, 3 or 4. Say you entered 1 to play 
with letters. A letter will now appear on the screen but only for a very short 
time. You have to enter that letter. The computer will then show you two 
letters which you have to enter, then three, and so on. Obviously, as the 
number of letters increases, remembering them all becomes more difficult. 
What is the longest string of characters you can remember? Can you beat our 
record of eight? 


10 REM **STM** 

20 PRINT "imiQ VOU WANT TO F’LRV WITH'?" 
36 PRINT "Ml :LETTERS?" 

40 PRINT "M2:NUMBERS?" 

50 PRINT ")03 : 0 FIND 1 ONLY?" 

60 PRINT "W4 ; OR DO YOU WANT TO STOP?" 
70 GET A$ 

80 ON VflL(A$> GOTO 100,110,120,620 
90 GOTO 70 

100 fi=26 : B«65 : GOTO 200 
110 fl= 10 •' B*48 •' GOTO 200 
120 A- 2 ; B=48 
200 REM **BUILD STRING*# 

205 INPUT "."iflRE AD Y (RETURN;' ???". \Y..% 

209 IF K$=" " THEN 209 
216 C=1 : TT=300 
220 T=TI : Tfl=T 
230 A$="" 

240 FOR D=1 TO C 

250 B$=CHR$ (B+RND (0 > * A ;• 

260 PRINT B$. 

270 A$=A$+E$ 

280 FOR E=1 TO TT : NEXT 
290 PRINT *11 
300 NEXT 
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310 PRINT 

400 REM *#ANSWER** 

410 INPUT "ANSWER" AN$ 

420 IF AN$=A$ THEN 600 
430 PRINT "WRONG! " 

440 PRINT "VOIJR SCORE ; C 
450 PRINT "IT WRS: ,, ;fl$ 

460 PR I NT " TI ME • " , STR$ (I NT < (T A-T /. 6 > V100 > ; 
500 PRINT "AGAIN CY/N>?" 

510 GET fl$ 

520 IF fl$="Y" THEN 200 

530 IF fl$O n N" THEN 51G 

54-0 GOTO 10 

600 C=C+1 : TA=TI 

610 GOTO 230 

620 END 


SECOND 
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One To Five 

This exasperating game, which we saw first on a CASIO calculator, takes quite 
some logical reasoning to solve. It is played on a board with nine positions set 
out like this: 


1 2 3 
4 5 6 
7 8 9 


A horizontal and a vertical line drawn through any one position will cross five 
positions in all. For instance lines drawn through position 4 will also cross 
positions 1, 5, 6, and 7. 
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The positions on the board are occupied by a random pattern of digits between 
0 and 5. If you enter one of the positions (using the key shown on the screen) 
the digit on that position, and all the digits on the horizontal and vertical lines 
going through that position, are increased by 1 (except 5 which becomes 0). For 
instance if we had 

2 2 4 

1 5 2 

1 5 4 

and entered 4, the board would change to 

3 2 4 

2 0 3 

2 5 4 

The puzzle is solved when the board looks like this: 

0 0 0 

0 0 0 

0 0 0 
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10 REM *#ONE TO FIVE'#* 

15 di« iiiiiiiiim 

20 M=0 

30 DIM flX<2,2> 

40 GOTO 1000: REM MRINPROGRRM 
100 REM #*SCREEN** 

110 PRINT "S" 

120 PRINT D $ " r T"" r . 

130 PRINT B$ " I I I I Q U E" 

140 PRINT B$ ” | — f ~H — \ " 

150 PRINT D* " I I I I R S D" 

160 PRINT " I—I—I—I " 

170 PRINT B$ " I I I I Z X C" 

160 PRINT D$ " *—* . - A ~- »" 

190 RETURN 

200 REM ##DRflU FIELD** 

210 FOR R=1 TO 11 

220 I =9*RND 0 > +1 

230 GOSUB 300-REM MOVE 

240 GOSUB 500:REM PRINT FIELD 

250 NEXT 

260 RETURN 

300 REM **MOVE** 

310 V* 8 1 NT < < I -1 > X3 ) 

320 X=I-1-3*V 
330 FOR Z=0 TO 2 
340 RX<X,Z)=RX<X,Z>+1 
350 fl^<r.Z,V>=RXkZ,V> + l 
360 NEXT 

370 fiX.CX, V)=RX<X, Y>-1 
380 WF=1 

390 FOR P=0 TO 2 

400 FOR Q=0 TO 2 

410 IF RX<P,Q>=6 THEN RXCP.Q>=0 

420 NF=WF RND <RX(P,Q>=0) 

430 NEXT: NEXT 
440 RETURN 

500 REM **PRINT FIELD** 

510 PRINT "W" D$ 

520 FOR Q=0 TO 2 
530 PRINT D$ "KM"; 

540 FOR P—0 TO 2 

550 PR I NT " II”RI GHT$ (STR$ < RX < P, Q > > , 1 > 

560 NEXT P 

570 PRINT 

580 NEXT Q 

590 RETURN 

600 REM **INPUT*# 
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610 GET Fl$ '■ IF m="" THEN 610 
620 FOR fl=l TO 9 

630 IF R$=MID$ <" QWERSDZXC" ,R,1> THEN I=R : R=9 

640 NEXT 
650 M=M+1 
660 RETURN 

1000 REM ##MRIN PROOF'PM*# 

1010 GOSUE 100' REM SCREEN 
1020 GOSUE 20O - REM HRRUI FIELD 
1030 GOSUE 6G0 ; REM INPUT 
1040 GOSUE 300 : REN MOVE 
1050 GOSUE 500 : REM PRINT FIELD 
1060 IF l-'-lF~0 THEN 1030 
1070 PRINT "M" 

1080 PRINT SPC•: 1 0 • " WPiFHRT-'S r,ppT » ur M- ‘T 
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Escher 


The work of the Dutch graphic artist M.C. Escher (1902-1972), based as it is on 
symmetry and mathematical forms, appeals particularly to computer 
programmers. 

Now with the help of the computer you can produce your own patterns 
based on the same principles as those used by Escher. 

Consider the following pattern: 



It is based on a mosaic in the Alhambra palace in Spain. If you look closely 
you can see that all the tiles are the same shape and that they are arranged so 
that the ‘inverse video’ of the white tiles shows the same pattern rotated 
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through 90 degrees. Escher studied such patterns and invented a game based on 
them. He devised a patterned tile such as 



which he rotated through four positions 



and arranged to form a continuous pattern. 
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This program does something very similar. After you have filled a ‘basic’ 
square with symbols the computer rotates and shifts it to fill the screen with 
your own ‘Escher’. 

At the start of the game the computer asks you to enter the size of your 
basic square. If you enter, for instance, 4, your basic square will contain 4x4 
elements. Now you fill your square, row by row, with the graphic symbols 
shown in lines 3000 to 3200 of the listing. When the square is filled the 
computer asks for the direction in which you want the squares displayed. You 
enter N, S, E, or W to indicate north, south, east, or west. The computer will 
ask you for as many directions as it requires. 

With this program you will be able to make an almost infinite number of 
spectacular patterns! Enter the program and see what you can come up with. 


10 REM **ESCHER GAME** 

20 MK-20 
30 PRINT "TT 
40 DIM S't <MK ■ 3 
50 FOR CC=0 TO MM 
60 FOR R1=0 T 0 3 
70 READ 37 < 00,R1> 

80 NEXT 
90 NEXT 

100 INPUT "ENTER SIZE OF SQUARE";S 
110 SX= I NT •' 39/3 > +1 
115 SV=INT<23/S>+! 

120 DIM PS < SX, SV :•, ES 3, S > , RI •' S, 3 > , 30 < S*SX, S*SV > 

130 PRINT "IT; 

140 FOR R=0 TO 3-1 
150 PR I NT "ROW";R+1;TRE<7 >; 

160 

170 INPUT A % 

180 n$=LEFT$'.;n$+" ",S> 

190 FOR K=0 TO 3-1 

200 BS ( R, K > -ASC (. MI D$ (R$, K+1, 1 > > 

210 NEXT K 
220 NEXT R 
230 PRINT 

240 PRINT "ENTER DIRECTIONS OF SQUARES <N,S,E,W)" 
250 PRINT "EACH ROW"SX"DIRECTIONS" 
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260 PRINT 

27© FOR B=0 TO SV-1 

280 PR I NT " ROW 11 B+1TRE 7 > ; 

290 INPUT m 

300 fl$=LEFT$",SX> 

310 FOR Fl=0 TO SX-1 
320 IN$=:MID$<fl$,R+l,1> 

330 DS(R, E> =- ((I m= " N" > +2'*( I N$=" E" -•+3* ■' I N$= "S" > +4*< I N$= " W " 

348 IF DS<R,BK0 THEN DS<'R,B>=0 

350 NEXT R 

360 NEXT B 

370 PRINT 

380 PRINT "CEVALUATING SCREEN3" 

390 FOR R=0 TO S-l 
400 FOR K=0 TO S-l 
410 FOR R1=3 TO 0 STEP -1 
420 FOR CC-MK TO 0 STEP -1 

430 IF BS <. K , R > =SV <CCC, R1 > THEN C2*CC R2*R .1 ' CC*0 : R1 =0 

440 NEXT 

450 NEXT 

460 BS < K.. R > *=C2 

478 RI<K,R>=R2 

480 NEXT 

490 NEXT 

1000 PRINT "CGRAPHICS FOUND3" 

1010 FOR R~0 TO S-l 
1020 FOR K=0 TO S-l 
1030 FOR B=0 TO SV-1 
1040 FOR A=0 TO SX-1 

1050 ON DS< A, B>+1 GOTO 1060,1070,1080,1090 

1060 X=K : V=R : GOTO 1100 

1070 X=S-R-1 •' V=K GOTO 1108 

1080 X-S-K-l •• V®S-R-1 ' GOTO 1100 

1090 X-R : V=S-K-1 

110G R1 = <DS<R,B > +RI(R,K> > RND 3 

1110 SC < X+R#S, V+B*S > =SV (BS (R, K > , R1 '• 

1120 NEXT 
1130 NEXT 
1140 NEXT 
115G NEXT 

2000 REM fcDRRW ESCHER# 

2010 PRINT "T; 

2020 FOR V—0 TO 23 
2030 FOR X-0 TO 39 

2040 IF SCCX,V»255 THEN PRINT " H" ; ' GOTO 2060 
2850 PRINT ; 

2060 PRINT CHR#< SC (. X.. V>RND 255.V: 

2070 NEXT 
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2080 NEXT 
2080 PRINT 
2100 GOTO 2100 


3000 

DRTR 

32. 

32 , 

3 2!. 

32 

REM ! 


3010 

IlflTR 

165. 

163, 

167. 

164 

REM' 

1 ’ 

3020 

DRTR 

212 . 

197, 

217 

210 

REM' 

! 1 

3030 

DRTR 

193. 

196. 

200 

1 98 

REM ' 

! ' 

3040 

Tip. TP 

194. 

135, 

2 21 

192 

REM' 

! ' 

3050 

DRTR 

130. 

183, 

170 

175 

REM' 

1 ’ 

3060 

DRTR 

181. 

I S" 1 - • 

182. 

185 

REM' 

! ' 

3070 

DRTR 

161 

418 . 

417. 

162 

REM' 

1 ' 

3080 

DRTR 

205. 

206 

2 0 5 

206 

REM’ 


3030 

DRTR 

203. 

202 

21 3 

20 :l 

REM’ 


3100 

DRTfi 

189 

1 73, 

1 “’p 

: 74 

RE M ‘ 


3110 

DRTR 

207 

208, 

1 86 

204 

PPM' 

r~-- 

3120 

DPT R 

;! 77, 

1 7 1 

• ' TP S 

1 “S' 

PPM' 

...l.' 

3 i 30 

DRTR 

1 69. 

223, 

425 

, 4-^9 

PPM' 

V 

3140 

DRTR 

130 

! 00 , 

1 ~v 

1 8 " 

PPM- 

• '■ 

3 1 50 

DR T R 

209, 

£09 

20 9 

208 

REM' 

*■ 

3160 

DRTR 

21 4 

2’". 4 

2 " 

:•! 4 

PPM ’ 


3170 

DRTR 

2 1 5 

:■ 1 '■ 

21 5 

71 c • 

PPM' 
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2 • 9 
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' 9 

C-C' 1 -' ' 

4 

3130 
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•’ iVT 

4 ‘ r- 
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3 0 ?'“ : 
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•' Cl 1 


• 
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Genius at Work 


Play this simple game to find out how good you are at thinking mathemat¬ 
ically. In fact, get the whole family to play, and find out which one is the 
genius! 

The computer displays seven numbers and a larger ‘target’ number. You 
must pick two of the numbers and one of the four simple mathematical 
functions: 

addition + 
subtraction - 
multiplication x 
division -r 

The computer will then perform this calculation. For instance, if you enter 7 + 18 the 
computer calculates 7 + 18 = 25 and asks: 

DO YOU WANT TO KEEP IT THIS WAY? 

If you enter N the numbers 7 and 18 are replaced in the initial list by 25. Now you 
choose again. Your task is to get a final result as near to the target number as you 
can. 

The character of this game is simplicity, so the whole family can play. Now you 
can find out if there is a genius in your family. 


10 REM #*GENIUS AT WORK** 
20 T—0'X—0■R = 0 
30 DIM D<7> 

40 GOTO 160 

50 INPUT "OPERATIONSF$ 

60 FOR N*1 TO LEN<F$> 
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70 E=ASCCMIB$CF$,N::0 

S0 IF E=42 OR E=43 OR E=45 OR E=47 THEN 110 
90 NEXT 
100 GOTO 50 

110 fl=VALCMIB$<F$, 1 .• N -1 > > 

120 B=VALCMID*CF$,N+1>> 

130 T$=MID$CF$,N, 1> 

140 IF VRL(F$)OINT< VftLC F$> > THEN 50 
150 GOTO 310 
160 PRINT "IT ; 

170 FOR 1=1 TO 7 
100 OINT<10#RND<0> + 1> 

190 IF INT<4#RNB <0)>=3 THEN C=INTC4*RNDC0> + 1 ;'*25 
200 D CI)=C 
210 NEXT 

220 F*INT<<9#RND<0>+1>#100> 

230 PRINT "HXrrRV TO RPRORCH THIS NUMBER ”.;F 
240 PRINT 

250 PRINT "VQU HAVE GOT THESE NUMBERS" 

260 FOR 1=1 TO 7 
270 PRINT STR$CD<I>>; 

280 NEXT 

290 PRINT:PRINT 

300 GOTO 50 

310 FOR 1=1 TO 7 

320 IF IK I>=R THEN 350 

330 NEXT I 

340 GOTO 460 

350 D(I)=0 

360 FOR 1=1 TO 7 

370 IF DC I >=B THEN 400 

380 NEXT I 

390 GOTO 460 

400 GOSUB 600 

405 PRINT F$; "sMKI) 

410 PRINT "DO VOU WANT TO KEEP IT THIS WAV"; 

420 2$="":INPUT Z$ 

430 IF Z$="" THEN 230 

440 IF LEFT$CZ$,THEN 490 

450 GOTO 230 

460 PRINT "VOU DON'T HRVE THESE NUMBERS AT ALL, THIS ROUND GIVES NOTHING" 

470 X=0 

480 GOTO 510 

490 PR I NT " VOU HAVE ■' "; D C I > ; " ON", F 
500 X=5-ABS C F-B <I> > 

510 IF X<0 THEN X=0 

520 IF X=5 THEN PRINT "WELL DONE" 

530 T-T+X 
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540 R-R+1 

550 PRINT "THIS MAKES" ; M; "POINTS" 

560 PRINT "VOU NOW HAVE"; T.i "POINTS, PJ' :R 
570 INPUT "AGAIN".Z* 

580 IF LEFTS 1 > = "V" T HEN 160 

590 END 


600 

IF 

T$=‘ 

■+" THEN 

D':i>=A+B 

RE T URN 

610 

IF 

T %—' 

THEN 

D< I T-A--P 

RETURN 

620 

IF 

T" 

*" THEN 

D (I =A*B 


630 

IF 

T" 

THEN 

T\ r T ;i ~m T; 



648 RETURN 


ROUND 
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Shark Hunt 


For five days now you have been adrift in your boat searching the seven seas. 
Suddenly you see a slight ripple on the mirror-like surface of the ocean — there 
it is, your quarry, that terror of the deep — the shark. You will be told at the 
start of the game how to move your boat. Your echo-sounder will tell you how 
close you are to the shark — the nearer you get the higher the note it gives. 
Stray too far from the shark and you are told 

SORRY; YOU WENT TOO FAR 

When you think you are close enough you can take a shot at the shark by 
pressing the space bar. If you hit the target you will see the message 

THAT'S IT! CONGRATULATIONS! 

Unfortunately you only have 200 ergs of energy to use. Moving your boat and 
firing your gun both cost energy. If you use up all your energy the computer 
tells you 


JL 
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YOU RAN OUT OF ENERGY 


At the end of the game you will be given information on your performance as a 
shark hunter. 


10 REM**SHARK HUNT** 

20 DIN NT<2),V$<2>,TIK3,8>, COT(2) 

30 DT= ” ; ' 

35 SID-54272 

40 FOR I =0 TO 23 • POKES ID+ 1,0 : NEXT : POKES I D+24 , 15- POKES T Ti+5.15 POKES I D+6 ■ 255 

50 BT="S ■" 

60 NG=0■TR=0 : MR=0 
70 FOR RE=0 TO 2 
80 READ NT(RE),VT(RE> 

90 NEXT 

100 DATA L,F, ’"X " ",R,B 
110 REM TUNE 
120 FOR TU=1 TO 3 
130 FOR N0=1 TO S 
140 READ TLKTLONO) 

150 NEXT NO,TU 

1 60 DATA 40,60,40,60,40,50, 60 ,60 
170 DATA 30,35,40,45,50,55, 60 ,60 
180 DATA 35,32,30,27,25,22,20,20 
190 COT(0)="SORRV■ VOU WENT TOO FAR" 

200 CO$a) = "THAT'S IT! CONGRATULATIONS!" 

210 00$(2)="VOU RAN OUT OF ENERGV" 

230 GOTO 3000 
300 REM**BEEP 

310 POKE SID+4,17:POKESID+1,TN 

320 FOR T=1 TO TM 

330 FOR DL=1 TO 10•NEXT DL 

340 NEXT T 

360 RETURN 

1000 REM**INITIALIZE 

1010 HG-NG+1 

1020 SX=INT C70*RND<0))-35 
1030 SV*INT(70*RND<0>)~35 
1040 DI=ABS(SN)+ABS(SV> 

1050 MD=DI : SD=DI 

1060 EN=200:SH=0 : HI=0 : NS=0 

1070 VX=0 : VV—0 

10S0 RETURN 

1100 REM**INPUT SPEED 

1110 GET K$ 
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1120 VX*4#< < K$="II" >- <"HI" > > 

1130 VV=4*<<K$=" !T >-<K*="M")> 

1140 SH*<K$*" "> 

1150 RETURN 

1300 REM**COMPUTE DISTANCE ETC 
1310 SX=SX-VX 
1320 SV=SV-VV 

1330 EN«EN+ CVXO0> + <WO0)-1 
134G IF ENO0 THEN EN=0 : GOTO 1460 
1350 REM SHARK MOVES AWPV 
1360 SX=SX+SGN S'X •' 

1370 SV=SV+SGN(SV> 

1380 I! I =AES < SX>+AES<S'V> 

1330 IF DIOMH THEN MD-DI 
1400 IF DIM00 THEN 1460 
1410 IF NOT SH THEN 1460 
1420 NS=NS+1 
1430 EN=I NT < EN-.5$DI> 

1440 IF EN<=0 THEN EN-0 : GOTO 1460 

1450 HI = I NT <. DI$RND0 > > <-1 

1460 RETURN 

1500 REM**OUTPUT 

1510 GOSIJE 2G00 : REM BLANK 

1520 PRINT LEFT $ ( ■ 8 : TAB < 50" ' '’ v :• 1 9 ' M SON : \/y , \ 


/"V 

/\ 
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1530 PRINT LE C T$< M -,S+3GN<VV>>,TRB<19 >;V$<3GH<VV> +1), 

1540 IF SH THEN TM=2 : TN=10'GOSUB 300 GOTO 1560 

1550 TM=1 : TN=140“DI : GOSUE 300 

1560 PRINT "WP" ; TfiE(14) ;EN; "IB 

1570 RETURN 

1600 REM**SCREEH 

1620 PRINT "ntf" 1 SPC'• 7> "ENERGV • “EH 1 ERGS" 

1640 PR I NT LEFT$ ( D$ ..15) ; SPC <7 ) " MOVE USE ARROW KEYS " 

1650 PRINT SPC<7)"SHOOT PRESS SPACEBAR" 

1660 GOSUB 2000 : REM BLANK 

1670 PR I NT LEFT $ < D$, 8 ) , SPC -• 7 > " DIRECT I ON " 

1680 PRINT : 1 SWUfl";SPC<7>"<RETURN> TO START" ; 

1685 INPUT AN$ 

1710 RETURN 

1S00 REM**END OP THIS GAME 
1816 PR I NT " SJS"; SPC <5 > ; COT- < CA-1 ) 

1820 FOR NO=l TO 8 

1830 TN=TIJ < CA, NO > •' TM= 10 : GOSUB 300 

1840 NEXT 

1845 POKE SID+4,0 

1850 PRINT "mfiTr'OU STARTED AT " , SB, TAB<20) .• "M" 

I860 PRINT "NUMBER OF SHOTS ", NS 
1870 PRINT "YOU CAME WITHIN■",MB,TAB<20- ;"M" 

1880 IF HI THEN PRINT "YOU HIT it FROM ",HI,TAB<20),"M" 
1890 IF HI THEN RE=50+EN/4+SD/10 GOTO 5900 
1895 RE=50-DI/2 
1900 RE®INT(RE) 

1910 IF REM00 THEN RE=100 
1915 IF RE <8 THEN RE=0 
1920 TR=TR+RE 
1930 IF REOMR THEN MR=RE 
1940 PRINT "^REWARDS <0-100)" 

1945 PRINT "-" 

1950 PRINT "NUMBER OF GAMES "■NO 
1955 PRINT "THIS GAME "; RE 

1960 PRINT "AVERAGE : ", I NT<TRYNO) 

1970 PRINT "MAXIMUM: "MR 

1980 RETURN 

2000 REM**BLANK SPACES 

2010 PRINT LEFT $ (. D$, 7 > ; TAB < 19 ) " 

2020 PRINT TABUS) 

2030 PRINT TABUS--," 

2040 RETURN 

3000 REM#*MAIN PROGRAM 
3010 GOSUB 1008 REM INITIALIZE 
3028 GOSUB 1600 : REM SCREEN 
3030 GOSUB 1100 REM INPUT 
3040 GOSUB 1300 REM COMPUTING 
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3050 

GO SUE 

1500 • REM 

OUTPUT 


3060 

Cfi=-3* 

( E N=01 1 ~ 2 # H T - DI 

> 100 :. 

3070 

IF Cfl= 

0 then 30 

30 


3080 

GOSUE 

1000 : PEN 

END 


3030 

PRINT 




3095 

nr HP 7 = 

1 TO 100 

E T K* 

I'-.ipVT 

3 i 00 

INPUT 

" wrmother 

GRMF ' 

: RN t 

3110 

IF LEF 

T$ ■ PNT, 1 

11 V' ' 

HEN ;:0 

3 120 

ENT 
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Shakespearian Shuffle 

Shakespeare, one of the world’s greatest writers, and chess, the king of games, 
are combined in this unusual puzzle. 

Letters are arranged on a chessboard like this: 
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A chesspiece, the knight, then moves around the board as it would in a normal 
game of chess. As it jumps from one square to another, the letters or symbols 
on the squares are exchanged. In this way the text on the board is jumbled up. 
The computer will ask you 

LEVEL? 

and you enter the number of moves you want the knight to make. Obviously, 
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the higher this number the more mixed up the board becomes. 

You will be shown the board after the knight has made his moves. Your 
task is to unscramble the text by moving the knight back around the board. 
Enter a number between 1 and 8 to move the knight, as shown. 



1 


2 


8 




3 
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6 
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10 REM ^SHAKESPEARIAN SHUFFLE** 

15 P0KE646, 13 

20 D $= " 1 ' 

30 DIM HX<8>, HV(8> , B*<8 . S> , 

40 FOR K=1 TO 8 
50 READ TSOO 
60 NEXT 

70 IiRTfl "TO BE OR".. "NOT TO B" .• "E.- THRT " 

80 DATA "IS THE Q""UESTION. " 

90 DRTR "WILLIAM ","SHAKESPE","ARE 1603” 

100 FOR X=1 TO 8 
lie FOR V=1 TO 8 

120 b$< x,v> =m i m< T$< V>,X,1> 

130 NEXT : NEXT 
140 FOR K=1 TO 3 
150 RERD HXaO',HVOO 
160 NEXT K 

170 DRTR -1,-2,1,-2,2,-1,2,1,1,2,-1,2,-2,1,-2,-1 
180 C1$="T" : C2$= ,, STTB" 

190 XO=l:VO=l=XN*1:VN*1 
200 GOTO 1000 

300 REM**PRINT CHARRCTER** 
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310 PR I NT LEFTS < US, V+1 > ; TAB (2*X >.J SPC < 9 > BS < X, V > ; 

320 RETURN 

400 REM**RANBOM SHUFFLE** 

410 INPUT " 7IELE VEL"LV 

420 FOR nU=l TO LV 

430 NM» I NT < RND (0 > *8+1GOSUB 500 

440 IF XO=XN AND VO=VN THEN 430 

450 XO*XN : VO=VN 

460 NEXT 

470 RETURN 

500 REMfcfcKNIGHT'S MOVE** 

510 XS-HX<NM>:VS=HV <NM) 

520 IF XO+XS<1 OR X0+XS>8 OR VO+VS<i OR VO+VSO8 THEN RETURN 
530 XN=XO+XS : VN=VO+VS 
540 W$=BSCXH,VN> 

550 BS <XN,VN)=BS(XO,VO> 

560 BS<XO,VO)=i-JS 

570 IF NOT IU THEN RETURN 

580 X=XO •' V=VO : GOSUB 300 

590 X=XN : V=VN:GOSUB 300 

600 XO=XN •' VO=VN 

610 RETURN 

700 REM**SCREEN** 

710 PR I NT" 73" 









720 FOR X=1 TO 8 
730 FOR 't-1 TO 8 
740 GOSUB 300 
750 NEXT 
760 NEXT 

770 PRINT D$, TAB<1S>; " 1 2W 
780 PRINT TRB(14);"8 3'JST 
790 PRINT TRB< 17> "HM" 

80S PR I NT TRB (14 > ; 11 7 4M" 

810 PRINT TRBC16)"6 5" 

820 RETURN 

900 REM**INPUT MOVE** 

910 FOR HE=1 TO 200 : NEXT DE 

920 PRINT LEFT#(DS.. VO+1 >trb ( 2*X0; SPC'• 9 "> C t $ 
930 FOR HE=1 TO 200 : NEXT BE 

940 PR I NT LEF t $ (D#, VO+1: TRB < 2*X0 > , SPC •: 9C2$ 
950 GET 1$ 

960 IF I#>"" THEN RE T URN 
970 GOTO 910 

1000 REM **MflIN PROGRRM** 

1010 G08UB 400'REM RRNB 0 M SMUFFLE 
1020 DI = ~1 

1030 GOSUB 700:REM SCREEN 

1048 GOSUB 900-REM INPUT MOVE 

1050 NM=VRLI I$> : IF NM=0 OF: NM=9 THEN 1040 

1060 GOSUB 500 REM KNIGHT'S MOVE 

1070 GOTO 1040 
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Explosion 

Most computer versions of EXPLOSION set out the board for two or more 
opponents to play on. With this program you are pitted against the computer 
itself. Are you up to the challenge? 

EXPLOSION is played on a board of 3 x 3 or 4 x 4 squares. The computer 
will ask you to enter the size of the board you want. 

Each square on the board has a capacity equal to the number of squares 
directly adjoining it. This means that corner squares have a capacity of 2 



edge squares have a capacity of 3 



64 


and central squares have a capacity of 4. 



You and the computer have checkers, of opposite colors, that you place on 
the board in turn. You may place a checker on any empty square, or on any 
square which already has one or more of your own checkers on it. A square 
will ‘explode’ when the number of checkers it carries reaches its capacity. An 
exploding square empties, its checkers spreading out, one to each neighboring 
square. These checkers will ‘take over’ any opposing checkers on these squares. 

As the game progresses the explosions get bigger and bigger. Eventually 
the whole board will explode in one color. If it’s your color you’ve won! 


10 REN***EXPL0SION*** 

15 POKE53280,0 = P0KE53281,0 
20 DIM RB < 5,5 >, SB < 5, 0 , ST < 5, 0 
30 D$=" '' 

40 GOTO 3000 

200 REM**C0PV RB TO SB** 

210 FOR X=1 TO SI 

220 FOR V=1 TO SI 

230 SB < X .> V > =RB < X .< V > 

240 NEXT•NEXT 
250 RETURN 

300 REM**COPV SB TO RB** 

310 FOR X=1 TO SI 

320 FOR V=1 TO SI 

330 RBCX,V>=SB<X,V> 

340 NEXT:NEXT 
350 RETURN 
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400 REM##INITIALIZE## 

410 PRINT 'TENTER SIZE OF BOARD (3 OR d>", 

420 INPUT SI 

430 IF SI<3 OR SI>4 THEN 410 
440 FOR X=1 TO SI 
450 FOR V=1 TO SI 

460 ST <X,V)=4+ <X-1> + (X=SI> + < V=1> + <V=SI> 

47G NEXT•NEXT 

430 PRINT "DO VOU WANT TO BEGIN vVXN> ,! 

500 INPUT RN$ 

510 CM - (LEF T $ (. AN$, 1 > OV" > 

600 REM#SETUP SCREEN# 

610 PRINT 'TT 
620 PRINT " \ X" 

630 PRINT " ", 

640 FOR X=1 TO SI PRINT X; " ",• NEXT •' PRINT 
65G FOR V-1 TO SI 

660 IF V=1 THEN PRINT " V ", GOTO 680 
670 PRINT " 

6SG FOR X= 1 TO SI-PRINT "4-" ; NEXT PRINT 

690 FOR 1=1 TO 3 
700 PRINT " ", 

710 IF 1=2 THEN PRINT STR$<¥>, GOTO 730 
720 PRINT "i 

730 FOR X=1 TO SI-PRINT "I . NEXT-PRINT "I" 
740 NEXT I,V 
760 PRINT " 

770 FOR X~1 TO SI PRINT ; NEXT : PRINT 

780 RETURN 

800 REM*#PLAVER MOVE## 

810 PRINT D$, 

820 INPUT "CTrOUR MOVE <X,V> IIIH11!" ; MX, MV 

830 IF MXC1 OR MX>SI OR MV<1 OR MV>SI THEN 810 

840 IF RB 1 - MX, MVX0 THEN 810 

850 GOSUB 200 

860 X=MX : V=MV : r11= — 1 

870 GOSUB 1000-REM EXPLOSION 

880 IF ET THEN 2200 REM END 

890 GOSUB 300 

900 RETURN 

1000 REM##OUTPUT EXPLOSION## 

1010 SB < X, V > =SB<X, V :■ + PL 
1020 NE=0 

1030 IF HI THEN X1=X : V1=V'GOSUB 1400 
1040 XP=0 

1050 FOR V=1 TO SI 
1060 FOR X=1 TO SI 

1070 IF PBS'• SB(X - V> <ST(X • V"• THEN 1160 
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1080 XP=-1 
1090 NE=NE+1 

1100 SB <X, V > =SE ■:X, V -ST <X . V:■ #PL 

1110 IF DI THEN X1=X : VI=V : FOR 1=1 TO 999'NEXT I : GOSUB 1400 

1120 X1=X•V1-V-1•GOSUB 1300 

1130 X1=X+1•V1=V•GOSUB 1300 

1140 X1»X:V1=t+1:GOSUB 1300 

1150 X1=X~1-VI=V:GOSUB 1300 

1160 NEXT X,V 

1170 ET* < NE>1.5#SI#SI > 

1180 IF XP FIND HOT ET THEN 1.040 
1190 RETURN 

1300 REM##RDD T 0 NEIGHBOURS## 

1310 SB<X1,V1>=PL#(RES<SB<X1■V1>> +1> 

1320 IF HI RND ST.:X1,V1>>0 THEN GOSUB 1400 
1330 RETURN 

1400 REM##PRINT FIELD## 

1410 FOR 1 = 1 TO 500 •• NEXT I 
1420 PR I NT L EFT$ < DT, 4#V 14-1 > ; TRB ( 4#X 1 ', 

1430 print " mm mm r rmm "; 

1440 IF SB 1 ' XI. VI >=0 THEN 1480 
1450 IF PL=-~1 THEN PPP-Jt "ais-- 
14-55 IF PL=1 T HEN PPIH T " SK". 

1468 PRINT mil!" RES (SBC Xi VI • - II MMI 
1470 PRINT 
1480 RETURN 

16O0 RE!" 1 ##C0MP 1 jTER M0 \t ES*4 
1610 PRINT • "fj-iv MOVE 
1.620 BE=1000 


67 




1630 FOR TX=1 TO 8.1 

1640 FOR TV=1 TO SI 

1650 IF RB 1 -TX.- TV>>0 THEN 1720 

1660 GOSUB 200 

1670 X=TX:Y=TV : D1=0 

1680 GOSUB 1000 •'REM OUTPUT EXPLOSION 
1690 IF ET THEN MX-TX : MV-TV : GOTO 1800 
1700 GOSUB 2008 : REM EVALUATION 

1710 IF EN<BE OR CEN=BE AND RNIK0X.4> THEN BE=EN ; MX-TX : MV-TY 

1720 NEXT : NEXT 

1800 REM*ACTUAL MOVE* 

1810 GOSUB 200 

1820 X—MX : V—MV : BI—-1 

1830 PR I NT TAB < 8 >; X; ", "; V 

1840 GOSUB 1000:REM OUTPUT EXPLOSION 

1850 IF ET THEN 2200=REM END 

I860 GOSUB 300 

1870 RETURN 

2000 REM**EVALURTE** 

2010 EN=0 
2020 FOR X-l TO SI 
2030 FOR V=1 TO SI 
2040 EN=EN+SB<X, V> 

2050 IF -SB<X.. V><ST<X.. V ) -1 THEN 2110 
2060 EN=EN-2 

2070 IF SB (. X+1; V> =ST<X+1.. V>-1 THEN EN=EN+10 
2080 IF SB<X.. Y+1 ) =ST<XV+1 >-1 THEN EN=EN+10 
2090 IF SB<X-1,V>=ST<X-1,V>-1 THEN EN=EN+10 
2100 IF SB<X, V-1 >=ST <. X. V-1 ) -1 THEN EN=EN+10 
2110 NEXT:NEXT 
2120 RETURN 
2200 REM**END** 

2210 PRINT Il$; "THAN ETERNAL EXPLOSION" 

2220 IF PL=1 THEN PRINT "YOU": : GOTO 2240 
2230 PRINT "I", 

2240 PRINT " WON IN"; NT;" II TURNS" 

2250 INPUT "BO VOU WANT TO PLAY AGAIN"AN$ 

2260 IF LEFT$<AN$, 1)*"Y" THEN PQKE646.. 14 : CLP : GOTO 10 
2270 END 

3000 REM**MAIN PROGRAM** 

3010 GOSUB 400:REM INITIALIZE 

3020 IF CM THEN 3040 

3030 PL=1 : GOSUB 800:REM PLfiVER MOVE 

3040 PL=-l:GOSUB 1600:REM COMPUTER MOVES 

3050 NT=NT+1 

3060 GOTO 3030 
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New York, New York 

This original and exciting game puts you in a helicopter high over New York, 
looking down on the city’s streets. At the moment they are deserted, but soon 
traffic will appear, and it’s up to you to keep it moving. You do this by 
controlling the city’s traffic lights. When a car (represented by a square) 
reaches a red light it will stop. Each traffic light bears a symbol — pressing the 
key bearing that symbol changes the light to green and the car will continue on 
its journey. 

At the beginning of the game you have 100 points. You gain 10 points 
every time a car goes through a crossroads, and 25 points for every car that gets 
right across the city. However if two cars collide at a crossroads you lose 100 
points and the road is temporarily blocked. If you run out of points the game 
ends — if not it lasts about five minutes. The more points you get, the better 
traffic cop you are! 
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10 REM#*NEW VORK '23 vnpr#* 

15 POKE 53281,' 

20 T I %= " 000000 ’ T 1 = r ; : 1 0 O 

■-.pi pp J j..jT II •<*>•('<■?/' f I '' " 

40 PR I NT " .A ' :;S ! 

50 PRINT" : C -r r> r £ r 

60 PR I NT"-+•-+~...+ ~..►..-.' 

70 PRINT" 0 ! H ! I ! T ; 

80 FF 1 1r-fT ■"/ y* ''** IK^PSSPP \\_*' <r '' u \"'ih 

90 pff=s 1 ; ^I >■>■-•--:<«" pp rNT R.f Pf Fit 
1 p|pi printSH 'p i 1 .. ■£. , V *rv- , > 

110 PR I NT" ! 3 ! T ! X '37 " • 

120 pr i nt " mmmm h -*■--—i- h 

130 PR I NT" ' V ! W ! '•■■: ‘ ■ 

140 PRINT’ mpy#* iv' ■"<'■? 2 »fi "f* j y ' "?/'"" 

150 PPINTfi* At fl$: 

160 PRINT"^&^^I?2 ! Wv'tW?. 1 4 3>f'-''M 1 1 

170 PRINT" ~ i 6 ’iT IS I 8 

180 PRINT"-+•-h-+■- f--" 

190 PRINT" + i £ a 0 - 1 - * ! 

200 ppiNT i *^^BP^ i $$"'$^i \~wmmm-" 

210 PR IN T " liW i I ^ '' . 

300 print" vmm* <( ' rf:/7 ^ »•- t ms ss smm m i mmgmm "; 

400 RW=40•807=1023 : CL=55295 

500 DIMXX< AW > , VY,< AW > , RY. ( RW > , L7 < 4 t > • P7 ■' 3 • ^ 1 7 9 ■' 

510 FORI=01041'RERDL7<I>:NEXT 

520 DRTfl 47,72,90,98,107,115,166■1 74 ,183.191,209,21 7 .226,234,367,375,384,392 

530 DflTR 410,418,427,494,503,511,529,537 546,554,687.695,704,712 

535 DflTR 730,738,747,755 

540 DRTfl 806,814,823 831,849,874 

550 FOR I =0TO41 • fl=PEEl< <LY. (I :>+SCX > POKELX -r I > +SCK, flOR 128 

560 POKELX <I)+CL,2 - NEXT 

590 flX(0 = 1 : RY .(1 > =-1 • fl,X< 2> =40 : RX<3 >=-40 

600 fl=RND < -TI > DEFFNR C X ) = I NT < RND ( 1 ;■ *X > 

1000 FOR I =0TOflW : RY.=RY. ( I > I FRX=0THEN 1099 

1010 xy.=xy.<i> ■■ vx=vKa:> 

1020 IFRXFlND 1 THENXX=X/> 1 ' FX=98 O0X=226'0X=64 87=40 TFXX240THEN1200 
1030 IFR Yn flND2THENX Y,- X Y .-1 • F,7=226 : 007=90 : 07=64 : S7=-40 : I FX7< 1 THEN 120G 
1040 IFR7flND4THENV7=V7-*■ 1 •' F7=97 : 007=225 ■' 07=93 ’ S7=-l ' IFV7323THEN1200 
iG50 IFR7AND8THENV7=V7-1 F7=225 007=97 07=93'87=1 :IPV7<0THEN1200 
106S 1FR7AND16THEN1100 
1070 IFR7AND32THEN1400 

1080 IFR7flND64THEN07= 9 1 R7=R7-64 R7 «T I > =R7 PU=PIJ+10 
1090 GOTO1300 

1099 NEXT : GOTO2000 

1100 IF<PEEK< XY,(. I+40*V7»' I ) +S7+CL.> AND 15>02THENR7< I > = <R70R32>flNDNOT 16 ' GOTO 1300 
1110 PU=PU-1 •' GOTO 1099 

1200 PI„i=RIJ+25 : PN=PN+1 : R7 ( I > =0 ^ P7=-1 : GOTO 1330 
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1300 PX=XX+40*VX:PSX=PEEK<PX+SCX::' ■ IFPSX=FXORPSX=160THENPU=PU-1 :GOTO1099 
1310 flssREEK < PX+SX+SC&> : I FR032THENRX < I > =RXOR 16 
1320 IFPSX=O0XTHENFX=160 

1325 VX=F'EEK (XX < I >+40*YX < I > +SCX > ■ I FVX= 1S0THENOX=O0X 
1327 IFVX= 102THENRX< I >=0: RO*RO+1 : PU=PIJ~1 00 = GOTO 1099 

1330 POKEPX+SCX. FX ■ F'OKEXX< I >+40#YX< I >+SCX, OX : XX < j > =XX : VX < I >=VX ■ GOT01 099 
1400 PX=XX+40*VX : R=PEEK <PX+SCX> ' I FR=FXTHEN 1099 
1410 IFR<>91THEN1500 

1420 VB=0 ' FORJ=0TO3 ' R*2 TJ ’ E=PEEK f PX+SCX+RX (J > > - IFNOT < B»640RB-93 > THENVB-VBORR 
1430 NEXT 

1440 B=2 IF NR (4 > IF < BRNDVB >-0THENRX < I > =E'0R64: GOTO 1330 
1450 IFVB=15THEN1099 
1460 GOTO1440 

1500 RO=RO+1 : RX < I =0 ■ I FRO 102THENFX< FlF ' =PX : RF=RF+1 : PU=PU-200 

1510 FX=102 : GOTO1330 

2000 IFRX(TL >*0THEN2100 

2010 TL-TL+l•IFTL>RNTHENTL-O 

2020 GOT03000 

2100 fi=FNRC 4 > RX(TL>=2TR ONR+1G0TQ2110,2120■2130, 21 40 

2110 XX < TL > = 1 : GOTO22O0 

2120 XX C TL. > =40 •' GOT022010 

2130 VX ( TL =0 ; GOTQ2300 

2140 VX(TL > =23 : GOTO2300 

2200 IFFNR<2) = 1 THENVX<TL> =3 ' OOTQ3000 

2210 VX (TL > = 19 ■■ GOTO30O0 

2300 IFFNR < 2> = 1THENXX(TL >=8'GOTO300O 

2310 XX<TL >=33•GOTO3000 

3000 GETflf ■' I FR$= 11 THEN3090 

3010 R=RSC<R t >:IFR>64RNDR<91thENR=R-65'GOTO01 00 

3020 IFR>47RNDFK58THENR=R-22 G0T03100 

3030 IFR=43THENR=36■00^03100 

3040 IFR=92THENR=37:G0T03100 

3050 IF R=6 4 t h E N R=3 8 : 0 0 T 0 310 0 

3060 IFR=42THENR=39 G0 T 03180 

3070 IFR=94THENR=40'00103100 

3080 IFR=61THENR=41:G0T03100 

3G90 GOTO4000 

3 100 PX=LX (R > : r=sPEEK •-PX+CL > ' 1F »' RRWD.1 5 ' *2THENfl«5 : G0T031J G 
3105 R=2 

3110 POKEF’X+CL, R 
3120 GOTO3000 
4000 REM *0UTF'IJT* 

4010 PR IN T ’' '' 3 0 C f. 18 * IT.}**., tt$ 4 , 1 " • "PI G H T * < TI %, 2 > "S!" 

4020 IFPU<0THENF'U=0 

4 @3 0 PRINT ” •5a:s3 , ‘ 3F’c < 1 8 > R T 0HT$ " : +■ T R* <: p • "4 

4040 IFPU=0THEN9000 
4 i 00 1 F^NR '■ 25 > ORFX 0 «0tujfk;4:?00 

4 1 1 0 P 0 :■ •' E f X ( 0 > + 9 r X , 91 F 0 R T = 0 T n 8 F" ■ < T > - F v - T +.J > M F v t : r r ~ r f 1 

4200 TFTJ~ T B:18F3TMFN90n 0 


71 






5000 GOTO1000 

9000 FOR I =0TO3E3 : NEXT : PR I NT" SJiflsS RGRIN ? WN) 
9010 GETR* •• I FR*=" V"THENRUN20 
9020 IFR$="N"THEN9040 
9030 G0T09G1O 

9040 IF PU>0 THEN PRINT"nSVOU HRVE" ; PU, "POINT 
9050 IF PU=0 THEN PPINT'TIWr'OlJ HID NOT MRNRGE 
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Key 

Searching for a key you have lost can be an aggravating experience at the best 
of times, but when you have to find it as quickly as possible and, what’s more, 
it’s hidden inside a computer the whole thing becomes very exasperating, but 
also very challenging. 

The computer has stored inside it a string of 20 ones and zeroes. 

I 0 100 I 0 I 0 I I I 0 I 01 0 I 10 


These figures can be shifted cyclically, that is, digits are moved from the 
lefthand end to the right. This is done three times and the numbers in each 
column added, for instance 

row I —> 00 I 0 I 0 I I I 0 I 0 I 0 I I 0 I 0 I 
row 2 —> 0 I I I 01 0 I 0 I I 0 I 0 I 00 I 01 
row 3 — > 0 I 00 I 0 I 0 I I I 010 10 I 101 

sums ^0221212222303031 1303 

This is all kept hidden from you: it is in fact the key you must find. 

What you are shown are the three rows of numbers, each shifted again. 
For instance if the top row is shifted two positions, the middle row four 
positions and the bottom row eight positions you will see 

1010 1 I 10 I 010 I I 0 I 0 I 00 
010101 I 0 I 0 I 00 I 0 I 0 I I I 
I I I 0 I 0 I 0 I I 0 I 0 I 001010 

200001 121 I I 1233 I 0122 
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You are not shown the sum of the new columns but the difference for each 
column, between this sum and the first ‘hidden’ sum. In the first column, for 
instance, the hidden sum was 0 and the new sum is 2 so you see 2; in the second 
column the hidden sum was 2 and so is the new sum so you see 0. You must 
now shift the three rows until they are the same as the hidden key, when, of 
course, all the differences will be 0. The rows are numbered (the top row is 1, 
the middle 2 and the bottom 3) so that if you enter 


ROW = 2 
STEPS= 1 

the middle row will shift one position to the left. 

How few turns will it take you to find the key? It has been done in as few 
as 10. 



10 REM**KEV** 

20 " 10100101011101010119 " 

30 DIM T<3,1S0 

40 GOTO 1000 

100 REN**INITIALIIE** 

110 FOR K=0 TO 19 

120 T < 0, K > =•'VRL < M J. D$ (R$, K+1, 1 > > 

130 T •' 1.. K ) =T (0, K > 

140 TC2.' K)=T<0.. K) 

150 NEXT K 

160 GOSUB 40G 

170 FOR K=0 TO 19 

180 T<3,K>=T<0,K)+TCl, K>+T<2, K> 

190 NEXT K 
200 GOSUB 400 
210 RETURN 

300 REM**SHIFT ROW#* 

310 FOR 1=1 TO S 
320 H=TCR,0> 

330 FOR K=0 TO 18 
340 T<R,K>=T<R,K+1> 

350 NEXT K 
360 T(Rj19>=H 
370 NEXT I 
380 RETURN 

400 REM**RANDOM SHIFT** 

410 FOR R=0 TO 2 
420 S=INT(20*RND(0 > > 

430 GOSUB 300 
440 NEXT R 

111 IIM#*S CREEN** 

510 PRINT "IT 
520 FOR R-0 TO 2 
530 PRINT " 

540 FOR K=0 TO 19 

550 PRINT CHR$CTCR,K > +48>j 

560 NEXT K 

570 PRINT 

580 NEXT R 

590 PRINT " - 

600 F=0 
610 PRINT " 

620 FOR K=0 TO 19 

630 D-RBS<T<0,K >+Ta,K>+T<2,K>-T<3,K>> 
640 PRINT CHR$CD+48>; 

650 F=F OR D 
660 NEXT K 
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670 PRINT 

680 RETURN 

800 REM**INPUT** 

810 PRINT 

820 PRINT SPC<9> "RON ="; 

825 INPUT R 

830 PRINT SPC<9> "STEPS="; 

835 INPUT S 
840 R=R-1 
850 RETURN 
1000 REM#*MflIN** 

1010 GOSUB 100 : REM IN IT 
1020 NT=0 

1030 GOSUB 500 : REM SCREEN 
1040 IF F=0 THEN 1090 
1050 GOSUB 800 : REM INPUT 
1060 GOSUB 300:REM SHIFT 
1070 NT=NT+1 
1080 GOTO 1030 
1090 PRINT 

1100 PRINT SPG( 10> "BONE IN" ■ NT"TURNS" 
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Black Box 


Armed only with a laser beam you must discover the whereabouts of a handful 
of atoms hidden in a vast black box. 

The box consists of 8 x 8 x 8 cubes. Atoms can be hidden in any of the 
cubes apart from those in the outer layer. However, there are never more than 
five atoms in the box. These atoms will reflect or divert laser beams according 
to the following rules: 

— a beam which strikes an atom is reflected straight back in the opposite 
direction 



> 


— a beam which is set to pass through a cube directly adjacent to an atom 
will be reflected at right angles 



— a beam which is set to pass through a cube diagonally adjacent to an 
atom will be reflected in a direction which can be obtained by adding two 
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The computer will ask you to enter PI, P2, and P3, the coordinates of the 
position where you want the beam to enter the box. Obviously, this must be on 
the surface, so at least one of the coordinates must be 1 or 8. When you have 
entered the shot the computer will tell you where the beam has emerged. 
Remember that a beam may be reflected by more than one atom. After you 
have had a few shots you should be able to work out where the atoms are — 
but then how few is ‘a few’? 


10 REM**BLACKBOX** 

20 DIM B(9.. 9, 9> 

30 GOTO 1008 

100 REM**INPUT SHOT** 

110 PRINT " PLERSE INPUT SHOT" 

120 GOSUB 500•REM INPUT 
130 DX= < PX=8 > - '■ PX= 1 > 

140 D V= < PV=8 > -PV= 1 > 

150 DZ= ( PZ~8> - < PZ-1 > 

160 IF DX=0 AND riV=0 AND DZ=0 THEN 120 
170 RETURN 

200 REM**COMPUTE RESULT** 

210 FOR TX=-1 TO 1 

220 FOR TV=-1 TO l 

230 FOR TZ--1 TO 1 

240 IF B<PX+TX,PV+TV,PZ+TZX>1 THEN 280 
250 DX=*DX-TX 
260 DV=DV-TV 

270 nz=nz-Tz 

280 NEXT TZ,TV,TX 

290 BX»SGN<DX> ^ BV*SGN<:DV> : DZ=SGN(DZ> 

300 PX=PX+DX •• PV=PV+BV •' PZ=PZ+DZ 

310 IF CF'X=0> + CF'X=9 > + <. PV=0> +PV=9> + CPZ=0> + (PZ=9} =0 THEN 210 
320 PRINT " RESULT'";PX-DX.iPV-nV;PZ-DZ 
330 RETURN 

400 REM**INPUT GUESS** 

410 PRINT " PLEASE INPUT GUESS" 

420 GOSUB 500 REM INPUT 

430 IF BCF’X.- P'tU PZ> = 1 THEN PRINT " RIGHT ! " : GOTO 430 
440 PRINT " WRONG)" 

450 RETURN 

500 REM**INPUT COORDINATES** 

510 PRINT " ENTER COORDINATES ; " 

520 INPUT " Pl = "; F'X 
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530 IF PXCl OR PX>8 THEM 520 

540 INPUT " P2="PV 

550 IF PV<1 OR PV>8 THEM 540 

560 INPUT " P3=" PZ 

570 IF PZ<1 OR P2>6 THEM 560 

580 RETURN 

1000 REM*#MAIN PROGRAM#* 

1005 PRINT ”73" 

1010 FOR flT=l TO 5 

1020 PX=6#RND<0>+2 

1021 FV=6*RHD<0>+2 

1022 PZ=6#RND<0>+2 

1023 IF B(PX,PV,PZ>=1 THEN 1020 
1025 B<PX,PV,PX>=1 

1030 NEXT 

1040 GOSUB 100 : REM INPUT SHOT 
1050 GOSUB 200'REM COMPUTE RESULT 
1060 PRINT " SHOOT OR GUESS'? <S/GV 
1070 GET IN$ 

1080 IF IN$="S" THEN 1040 
1090 IF IN$0"G" THEN 1070 
1100 GOSUB 400:REM INPUT GUESS 
1110 GOTO 1060 
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Treasure Hunt 


Have you ever dreamed of going in search of hidden treasure? Of journeying 
through wild and hostile countryside, living off the land and sleeping out, until 
you reach the remote and forbidding land where your glittering prize is hidden? 
If so, this is the game for you. 

You will be taken high up into the Rocky Mountains and given a map 
which shows where the treasures you seek are hidden, and what they are worth. 
To reach them you must make your way along narrow twisting paths — one 
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false step means certain death — by using the following keys. 


0, for one step upwards 
K, for one step to the left 
for one step to the right 
for one step downwards 


You discover the treasures simply by treading on them. 

But wait . . . it’s not that easy. You didn’t really think it would be that 
simple, did you? The treasures you seek are very carefully guarded by some 





extremely vicious and terrifying birds who will attack you if you are not 
careful. If they get you in their sights you will be paralyzed with fear. The only 
thing you can do to try and stop them is to press the space bar. 

If you still feel up to the challenge start your search in the lower left hand 
corner of the map. Collect as much treasure as you can and take it away 
through the upper right hand exit. This will give you bonus points, and another 
chance to journey along the paths, picking up treasure. In fact you can make as 
many treasure-seeking trips as you can get away with. Unfortunately each time 
you go through you disturb more of those appalling birds, who become increas¬ 
ingly aggressive. 

The risks are high, but so are the rewards, so gather up your courage and 
off you go! 


10 rem**tpensure hl-nt## 

15 POKE 50281,1 
20 SC=1024 
30 

40 GOTO 1000 


100 

REM**SCREEN** 


110 

PRINT ’TT, 



120 

print "mm 


001 0 ' 

130 

PRINT •>« 

30200 60 0 " 

140 

print "mm 

M 00400 

000 " 

150 

PRINT "MB 

0 0 0050 

007® ’’ 

160 

PRINT "0 

030 00 0 

* " 

170 

PRINT "0 * 

m m 0 00 

0000 M 

180 

PRINT "0 m 

0 0 0 050 

* 90 “ 

190 

PRINT m 

1 

i 

MB 00 11 

200 

PRINT "0 

00 000 3W® 

0 80 " 

210 

PRINT "010 

03 0 00 

0 00 “ 

220 

PRINT "Mi 

0001 000030 

0 0 N 

230 

PRINT "0 

1*0 ® 0 

00 0 N 

240 

PRINT "0 0 

0030 0 0 00 

0 " 

250 

PRINT "0 0 

BOTUT 110ft 00ft 

0 * 

0070 " 

ggum it 

260 

300 

PRINT m 

V-14=X-1 



310 

PL-40MV+X 



320 

POKE SC+PL, 

0 
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330 PRINT D$;P2,NC; 

340 RETURN 

400 REM**PLAVER MOVES#* 

410 T1=400-1NT <30*NC*RNB<0>> 

420 FOR DU=1 TO T1 

430 GET DI$-IF DI$=‘ iM THEN 510 

440 VX- < HI$=' : K" > - CD I $="•'" 1' 

450 VV= <DI$="0<n.IT=". "> 

460 NP=40# <. V+VV > + >r X + VX > 

470 PK=PEEK<SC+NP> : IF FK032 AND <PK<49 OR PK>57) THEN 510 

480 POKE SC+PL.. 32 : X=X+VX : V=V+VV : PL=NP 

490 P0=PK-48 ; IF PO<0 THEN 510 

500 P1 =P 1+PO - P2=P2+P0 • PR I NT ri$.:P2.; 

518 POKE SC+PL,0:IF PL=40 THEN DU=T1 
528 NEXT DLL IF F’L>40*15 THEN 400 
530 RETURN 

600 REM**EIRD ATTACKS** 

610 DT=15-3*NC 

615 FOR 1=1 TO 10:GET BIS -NEXT 
620 BU=40*V+20 
630 PK=PEEK <SC+ BU> 

640 POKE SC+BU..31 

650 FOR DE=1 TO DT NEXT 

660 GET BIS 

670 IF D!$;=’' " OR PK=0 THEN RETURN 

680 POKE SC+BU,PK 

690 EU=BU-1 

700 GOTO 630 

1000 REM**MAIN PROGRAM** 

1010 GOSUB 100:REM SCREEN 
1020 GOSUB 400-REM PLAVER MOVES 

1030 IF PLC40 THEN NC=NC+1 : P2=P2+NC#P1 : P1=0 : GOTO 1010 
1040 GOSUB 600•REM BIRD ATTACKS 

1050 IF PKO0 THEN POKE SC+BU, PK = PI =P1 + 1 = GOTO 1020 
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I.T. — The Adventure of the 
Century 

In this crazy adventure you will sink into the bowels of the earth and meet a 
very strange creature who lives there. His name is, of course, I.T. which stands 
for Intra Terrestrial. 

If you have never played an adventure game before don't worry about the 
rules — there aren't any! You have to work everything out for yourself as you 
journey beneath the earth's surface, performing extraordinary tasks and facing 
terrifying dangers as you go. If it all gets too much for you enter HELP and see 
what the computer comes up with. 

So, type in the game, take out a good insurance policy, give the RUN 
command, and off you go! 
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10 REM#*I.T.#* 

20 GOSUB 5000 

30 MV=3■NR=0 : GOTO 50 

40 GOSUB 20G 

50 GOS'IJB 500 

60 GOS’IJB 400 

70 IF NLK6 THEN 40 

100 PRINT "MCONGRATULAT IONS ..VOU SUCCEEDED IN KILLINGVOURSELF!" 

110 END 

200 REM##INPUT#* 

210 MR-0 : MV=0 

220 INPUT "WHAT NEXT" 

230 FOR 1=1 TO 14 

240 IF LEFT$CM#C I > LENCC$> > =C$ THEN MV=I 1=14 
250 NEXT I 

260 IF MV>6 THEN GOTO 310 

270 IF MV=0 THEN PRINT "I DON'T UNDERSTAND”'GOTO 2G0 
280 NR=R<RM,MV> : IF NRO0 THEN 310 
290 PRINT "THE WAV IS BARRED" 

300 GOTO 200 
310 PRINT "IT; 

320 RETURN 

400 REM*#OUTPUT** 

410 PRINT "VOU FIRE IN THE "PRINT D$(RM> 

420 IF RM>=25 OR CLO AND T(1)=0 OR TC1)=RM> THEN 430 
425 PRINT "IT''S VERV DARK HERE" : GOTO 440 
430 FOR 1=1 TO 12 

432 IF TCI }=RM THEN PRINT "A ";T$a>;" IS HERE" 

434 NEXT I 

435 IF LO AND RL>120 THEN PRINT "VOUR LAMP HAS EXPIRED" : LO=0 

436 IF LO AND RL>100 THEN PRINT "VOUR LAMP BATTERIES ARE GETTING EXHAUSTED" 
440 FOR 1=1 TO 6 

450 IF RCRM,IK>0 THEN PRINT "VOU CAN GO ",’M$CI> 

460 NEXT I 

470 PRINT TABC8>J"###" 

480 RETURN 

500 REM**OPERRTIONS#* 

510 IF NRO0 THEN RM=NR 
520 TH=0 

530 FOR 1=1 TO 12 

540 IF TCI)=RM THEN TH=I■1=12 

550 NEXT I 

560 HL=0 

570 FOR 1=1 TO 6 

580 IF HC I.. 1 >=RM THEN HL.=I 1=6 

590 NEXT I 

600 REM#GENERAL OPERATIONS* 

610 IF RM<12 AND RROS THEN GOSUB 4200 
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628 RL=RL-LO 

630 REM*PERSOHAL OPERA T IONS$ 

648 IF MV <7 THEN 660 

658 OH MV-6 GOSUB 1000.1280,1300,1400,1600.1708,1300,1900 
660 REMfcHANDLERS# 

670 ON HL GOSUB 2000-2300.2600,2^08,2900,3100 

630 RETURN 

1080 REM**KILL** 

1010 IF HL=0 OR HL>4 THEN PRINT "TIME IS THE ONLV THING VOU CRN KILL" RETURN 
1020 TP=7'GOSUB 410G 

1038 IF PO=0 THEN PRINT "WITH BRRE HANDS? THAT'S SUICIDE!" RETURN 
1040 PRINT "VOU TRV TO KILL THE " PRINT H$(HL> 

1050 PRINT "VOU 8 T RIKE IT WITH VOUR SWORD."; 

1855 IF <HL=1 OR HL=2> AND <H<HL, 2> =6 OR H < HL. 2=5> THEN 1070 

1060 IF RND(0><.5 THEN PRINT " BUT IT MOVES RWRV QUICKLV..." : GOTO 1090 

1070 PRINT " AND VOU GIVE IT R TERRIBLE BLOW!" 

1030 H< HL3> =H C HL. 3>-1 
1090 IF RND<0>>.2 THEN 1120 

1100 PRINT "THIS IS VOUR CHANCE 1 ! VOU CRN HIT IT AGAIN BEFORE IT RECOVERS." 
1110 INPUT "DO VOU WANT TO<V/N>AN$:PRINT "H": 

1115 IF RN$*"J" THEN PRINT "VOU RAISE VOUR SWORD AGAIN.": GOTO 1055 
1128 IF H<HL.3>>1 THEN RETURN 

1130 IF H ( HL. 3* 1 THEN PRINT "VOUR VICTIM IS E'ADLV WOUNDED" : RETURN 
1140 PRINT "VOU KILLED VOUR VICTIM" 

1150 H<HL,1>=0T(HL+8>*RM'HL=0 
1168 RETURN 
1200 REM**HELP** 

1210 PRINT "^POSSIBLE COMMANDS:M" 

1220 FOR 1=1 TO 14-PRINT M$CI> : NEXT 
1230 PRINT "WHIT ANV KEV" 

1240 GET IN$■IF IN*«"" THEN 1248 
1250 PRINT "1"; 

1260 RETURN 
1300 REM**TAKE** 

1305 IF (T(1)=0 OR TO:.'=RM) AND LO OR RM>24 THEN 1310 

1306 PRINT "VOU CAN'T SEE VOUR OWN FINGERS.. LET ALONE SOMETHING TO TAKE!" 

1307 RETURN 

1310 IF TH=0 THEN PRINT "THERE'S NOTHING TO TAKE HERE" : RETURN 
1320 PRINT "VOU TAKE THE ";T*<TH> 

1330 P<LP>*TH:LP=LP+1 ■ T-:TH)=0 : TH=0 
1340 RETURN 
1400 REM**DROF'** 

1410 IF LP=1 THEN PRINT"VOU OWN NOTHING !” ; RETURN 

1420 PRINT "WHAT DO VOU WANT TO DROP" : INPUT D* : PRINT "IT ; 

1430 TP=0 : FOR 1=1 TO 12 

1440 IF D$=LEFT$<T$a>..LEN<D$>> THEN TP=I : 1 = 12 
1450 NEXT I 

1460 IF TP=0 THEN PRINT "I DON'T UNDERSTAND" : RETURN 
1470 GOSUB 4100 
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1480 IF PO»0 THEN PRINT "VOLKRE NOT CRRRVING REPRINT T$CTP>:GOTO 1520 
1490 PRINT "VOU DROP THE ";T$<TP> 

1500 TH=P<PO>:T<TH>=RM-LP=LP-1:P<PO>=P<LP> 

1520 INPUT "DO VOU WANT TO DROP MORE"JAN$ 

1530 PRINT "3"; 

1540 IF AN$="V" THEN 1420 

1550 RETURN 

1600 REM##INVENTORV## 

1610 IF LP*1 THEN PRINT "VOU OWN NOTHING AT ALL" : GOTO 1640 
1620 PRINT "VOU RRE CRRRVING : " 

1630 FOR 1 = 1 TO LP-1 : PRINT T'KP(I > > = NEXT 
1640 PRINT "VOU CRN SURVIVE";5-NW;"WOUNDS" 

1650 RETURN 

1700 REM**BANDAGE** 

1710 TP=6 : GOSUB 4100 

1720 IF PO*0 THEN PRINT "VOU WON'T MRNRGE WITHOUT R BANDAGE" : RETURN 
1730 PRINT "IT DOESN'T LOOK VERV HOPEFUL.I'LL NEED RLL VOU HAVE" 
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1750 PRINT "ALL RIGHT, it WILL HOLD FOR R WHILE" 

1760 NW=0 •' LP=LP- 1 ■ P (PO >=P<LP> 

1770 RETURN 

1800 REM*#LflNTERN ON/OFF** 

1810 IF T(1)>0 RND T< 1 >ORM THEN PRINT "GET R LRNTERN FIRST! " ; RETURN 
1820 IF RL>120 THEN PRINT "VDUR BATTERIES RRE FTNTSHED" : RETURN 
1830 LO=NOT LO 

1840 PRINT "THE LRNTERN IS NOW "; 

1850 IF LO THEN PRINT "ON" ; RETURN 
I860 PRINT "OFF" 

1870 RETURN 
I960 REM**REflH** 

1910 TP-4 : GOSUB 4100 
1920 IF POO0 THEN 1930 

1925 PRINT "THERE IS NOTHING HERE TO RERD!" ; RETURN 

1930 IF NOT LO RND P.M<25 THEN PRINT "IT'S T 00 DARK tq RERD" : RETURN 

1940 T*»"SGDQD HR Z QDGHOD ENQ ENNJHDR HM SGHR RHNJ. " GOSUB 4000 

1950 T$="HS RZXR : SZJD NMD GDKKGNTMC ZNC Z OHMBG NE VGDZS."•GOSUB 4000 

i955 T$*"OTS HS NM Z AZQRDETD." : GOSUB 4000 

1980 PRINT "THAT'S ALL" 

1990 RETURN 
2000 REM**I.T.** 

2010 IF TH=3 THEN H<1,2>*3:TCTH>=0 : TH=0 
2020 ON H(l,2) GOTO 2030,2060,2090,2190,2220 
2030 PRINT TAEC5X; "#* I.T. **" 

2034 PRINT "I.T. IS HERE, HE'S TALKING URGENTLY, BUT YOU DON'T UNDERSTAND " 
2038 PRINT 

2050 H(l, 21-=2: RETURN 

2060 T$="H.S. FDRSTQDR SGZS GD HR UDQX SGHQRSX.GDKNNJR CDRODQZSD." : GOSUB 4000 
2075 PRINT 
2080 RETURN 

2090 T$="H.S. CQHM.JR ZR HE GD MDDCDC HS UDQX AZCKX. " = GOSUB 4000 

2105 T*="ZESDQ Z VGHKD GD RSZQSR SZKJHMF ZFZHM;":GOSUB 4000 

2110 T$="ZMC XNT QDZKHVD XNT BZM TNCDQRSZMC GHL!" : GOSUB 4000 

2120 T$="GD RZXR- OKDZRD FN CHVM EHMC SOD MTKKHSXANLR.":GOSUB 4000 

2133 T*="RNLD BQZYX OQNEDRRNQ VZMSR SN CDRSQNX ZKK KHED VHSG HS 1 " : GOSUB 4000 

2143 T$="H OZC Z EHFGS VHSG SOD LNMRSDQ SGZS" : GOSUB 4000 

2150 T$="OQNSDBSR HS,RTS MNV H ZL DWGZTRSDC, " GOSIJE 4000 

2160 T$*"RN HS'R TO SN XNT SN RZUD SGD DZQSG!" : GOSUB 4000 

2170 PRINT "SUDDENLY I.T. COLLAPSES" 

2180 H(L2)*4 : RETURN 

2190 PRINT "IT LOOKS LIKE I.T. IS IN COMA.NOW YOU'LLHAVE TO DO IT ALL ALONE!" 
2205 PRINT " GOOD LUCK!" 

2210 HO, 21>»5 : RETURN 

2220 PRINT "I.T. IS HERE.HE IS IN A COMA." PRINT 

2240 RETURN 

2300 REM**DRAGON** 

2310 IF TH=8 THEN H<2,2>=5a<TH>=0 TH=0 
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2320 ON H < 2, 2 > GOTO 2330,2370,2400,2430,2470,2520 

2330 PRINT "THERE IS RN ENORMOUS MONSTER HERE. I T 'S EVES RRE POLLING" 

2335 PRINT "IT VELLS' RRE VOU R COOKIE?" 

2360 H<2,2>*2 : RETURN 

2370 PRINT "THE MONSTER VELLS LOUDER AND LOUDER : W" 

2380 PRINT "RRE VOU R COOKIE ?!!" 

2390 HC2,2>=3 : RETURN 

2400 PRINT "THE MONSTER KEEPS VELLING RND BECOMES RRTHEP AGGRESSIVE." 
2420 HC2, 2 )=4 : RETURN 

2430 PRINT "THE MONSTER GIVES VOU R TERRIBLE BLOW. VOUR HERD IS SPINNING 
2450 NW«NW+1 

2460 H < 2,2)=FNRD<3> +1'RETURN 

2470 PRINT "THE MONSTER SAVS SURPRISED COOKIES ?!" 

2480 PRINT "RND STARTS TO EAT AT ONCE. AN ENORMOUS" 

2495 PRINT " 1 ! B 0 N G » !" 

2497 PRINT "AND IT FALLS ASLEEP." 

2500 R < 16 ■ 6 ) -1 

2510 HC2,2>* 6 : RETURN 

2520 PRINT "THE MONSTER IS ASLEEP." 

2530 RETURN 
2600 REM**SNAKE** 

2610 PRINT "THERE IS A SNEAKV SNAKE HERE." 

2620 IF RND(0X.4 THEN RETURN 
2630 IF LP= 1 OR RND (. 0>C. 5 THEN 2670 

2640 RN*FNRD<LP -1 > : T >1 P<RN> > = 1 2+FNRD12> LP=LP- l P< RN) =P<LP> 

2650 PRINT "tt SNATCHES SOMETHING . AND " ■ 

2670 PRINT "IT SNEAKS AUflV" 

26S0 H<3, 1) b H(3.- 1 > +3 IF H(3, 1 >>24 THEN H<3, 1 > =H<3, 1 :• S 

2690 RETURN 

2700 REM**HELLHOUND#* 

2710 ON H ( 4•2 > GOTO 2720.2750,2780 

2720 PRINT "THERE IS A GIANT HELLOUND HERE" 

2730 PRINT "IT LOOKS LIKE IT WANTS VOU FOR DINNER" 

2740 H<4, 2)~2 '■ RETURN 

2750 PRINT "THE HELLHOUND ATTACKS AND BITES VOU VIOLENTLV." 

2760 NW*NW+i 

2770 H < 4,2>=3 : RETURN 

2780 PRINT 'THE HELLHOUND GROWLS AND SFEM'- Tn ppfPARE FOR ANOTHER ATTACK. 
2800 H < 4,2 > = 1+FNRD ( 2 > RETURN 
2900 REM^BO^E** 

2910 PRINT "THE NULL I TV-BOMB IS HERE,, THERE ARE THREE". 

2920 PRINT "WIRES CONNECTING THE BOMB AND THE TIM!NGMECHANISM : " 

2925 PRINT "A GREEN ONE CG':* . " 

2927 PRINT "A VELLOW ONE CVI-, "• 

2929 PRINT "AND A RED ONE 'R>" 

2930 PRIN T "VOU MUST DISCONNECT TWO TO MAKE IT STOP" 

2940 INPUT "WHICH ONE HIRST " v'f 

2950 INPUT "AND SECOND "■V$ 

2960 CB=0'C$="OVR" FOR I~1 to 3 
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2970 CB»CB-<X$*MID$<C$,I,l>>-<Y$=MID*<C*,I,1>> 

2980 NEXT I 

2990 IF CBC2 THEN PRINT "THATCH OUT' 11 :PRINT "WRONG INPUT!":GOTO 2910 

3000 IF RSC<X$>*RSC{Y $ > =5822 THEN 3030 

300? FOR 1=1 TO 10:POKE 53281,1 

3010 PRINT "TJ * ENORMOUS EXPLOSION *M" 

3012 PRINT " ! MUSHROOM CLOUD ! M" 

3016 PRINT "VOIJ TRIED ERRVELV, BUT RLRS !! VOU " 

3020 PRINT "DIDN'T SUCCEED..." 

3022 FOR ,T=1 TO 4: POKE 53281,9: NEXT J, I 
3025 END 

3030 PRINT CONGRATULATIONS**" 

3040 PRINT "MVOU SUCCEEDED WHERE EVERYONE ELSE FRILED" 

3060 END 

3100 REM**BARBECUE** 

3130 IF T<2>=RM RND T( 12>=RM THEN TH=8 : T<TH> =RM ' T < 2> =0 •' T ( 12) =0 : H •' 6,2 

3140 ON H < 6,2 > GOTO 3150,3180,3220 

3150 PRINT "THERE IS R GIRNT BRRBECUE WITH R " 

3165 PRINT "LARGE FIRE UNDER IT." 

3170 RETURN 

3130 PRINT "AN ENORMOUS FLASH LIGHTENS THE PLACE " 

3185 FOR 1=1 TO 40: POKE 53281,1:NEXT I 

3186 POKE 53281,2 

3187 PRINT "AND A PENETRATING SMELL FILLS VOUR NOSE." 

32i0 H < 6,2>=3 : RETURN 

3220 PRINT "EVERYTHING IS QUIET NOW; EVEN THE PENE TRRTING SMELL " 
3240 PRINT "HAS GONE." 

3250 H(6,2>=1:RETURN 
4000 REM**DECODE TEXT** 

4010 TNf="" : FOR 11 = 1 TO LEN<T$):c$*MID*<T$,11,1> 

4020 IF C$=”Z" THEN C$="A":GOTO 4030 

4025 IF C$>="A" AND CSC'Z" THEN C$=CHR$<RSC<C#> + l> 

4030 TN*=TN$+C$ 

4040 NEXT IF NOT IN THEN PRINT TN$ 

4050 RETURN 

4100 REM**WHAT IS CARRIED** 

4110 PO*0:FOR 1=1 TO LP-1 

4120 IF P< I>=TP THEN PO*I : I=LP-1 

4130 NEXT I 

4140 RETURN 

4200 REM**PUZZLE** 

4210 RT=RT+1 

4220 IF RM=S<RT> THEN RR=RR+1 

4230 IF RT<8 THEN RETURN 

4240 IF RR=8 THEN 4310 

4250 FOR Q=1 TO 80:POKE 53281,0 : NEXT Q 

4255 PRINT "AN ABSOLUTE DARKNESS COVERS VOU AND IT " 

4265 PRINT "FEELS AS IF SOMETHING IS BEING PUSHED AWAY" 

4270 PRINT "FOR R MOMENT YOU ARE UNCONCIOUS." 
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4280 POKE 53281,2 
4290 RT-1= RR-1 : RM=1 
4300 RETURN 

4310 PRINT "YOU HERR R STRANGE SOUND RS IF SOMETHING " 

4330 PRINT "IS BEING PUSHED AWAY." 

4340 FOR DL-1 TO 3000=NEXT DL 
4350 PRINT "NOW IT HRS STOPPED." 

4360 R<2,1>=3 

4370 RETURN 

5000 REM##IHITIALISE## 

5010 PRINT "OT'SPCC10> "WRIT R MINUTE PLEASE." 

5020 DIM R < 36,6 >,D# C 36>,M$ a 4 >,H < 6,3 >,H$ < 6 >,T(12),T*(12),P<12>,D<8> 
5030 DEF FNRD<X) = 1 NT <X#RND< 0 > +1 ) 

5100 REM#CONNECTIONS* 


5110 

5120 

5130 

5140 

5150 

5160 

5170 

5180 

5190 

5200 

5210 

5300 

5310 

5320 

5330 

5340 

5350 

5360 

5370 

5380 

5390 

5400 

5500 

5510 

5515 

5520 

5522 

5525 

5535 

5540 

5545 

5550 

KJCJKJBT 

5560 

5565 


FOR 1=1 TO 36 

R<I, 1)=I+1 :R(I,2) = M :R<L3)*I+4:R(I .4)=I-4 
NEXT I 

FOR 1=0 TO 24 STEP 12 

FOR J=1 TO 9 STEP 4 : RCI+.J+3, 1 >=0 : R(I+.J, 2>*0 : NEXT 
FOR J-l TO 4 : R a + J+8,3)=0 : R<I+J,4 > =0 : NEXT 
NEXT I 

R C 1,5 > = 16 : R < 7, 5) = 15 : R < 32 .* 6> = 13 : R < 13.■ 5 ) =32 : R < 35,6) = 18 : R a8, 5 > =35 
FOR 1 = 1 TO 15:READ RM.READ MV : R <RM,MV> = 0 NEXT 
REM#INIT PARAMETERS# 

RM=36 : PO=l : LP= 1 : RL=0 : 1.0=0 : NW=0 : RT=0 ■' RR=0 
REM#FILL RRRRVS# 

IN=-1 

FOR 1 = 1 TO 14: READ ri$ < I > : NEXT 

FOR 1 = 1 TO 12: READ T$ : GOSUB 4000 T$< I > =TN$ : NEXT 

FOR 1 = 1 TO 6-'READ T$=GOSUB 4000 •' H$ a >=TN$ : NEXT 

FOR 1 = 1 TO 36: READ j $ : GOSUB 4000 >*TN$ : NEXT 

FOR 1 = 1 TO 12:READ j <I>:NEXT 

FOR 1 = 1 TO 6: READ HCI, 1 >, H<I, 3> : Ha,2> = 1 : NEXT 

FOR 1 = 1 T 0 8: READ Sa>=NEXT 

IN=0 

RETURN 

DATA 21,1,22,2,22,1,23,2,18,1,19,2,16,3,20,4,11,1,12,2,7,1,8,2,7,4,3,3,2,1 
DATA EAST,WEST,NORTH,SOUTH,UP,DOWN,KILL,HELP,TAKE,DROP 
DATA INVENTORY,BANDAGE,LANTERN,READ 

DATA KZMSDQM,VGDZSOHKD,VZSDQRZBJ,BNNJANNJ,KDZEKDS,AZMCZFD,RVNQC 
DATA BNNJHD,ANCX HE H.S. 

DATA FHZMS BNQORD,RKHBDC RMZFD,CDZC GNTMC 

DATA H.S. , LNMRSDQ, RMZJD, GDKKDGNTMC, AZQADETD, ANL.A 

DATA QDRDSBZUD,S-BZUD,RDBQDS BNQQHCNQ,EHMSQNK QNNL,N--BZUD,H-BZUD 

DATA ROZBD-BZUD,RKZBJ QNNL,O-BZUD,D-BZUD,M-BZUD,DLOSHMDRP 

DATA RLZKK BZUD.-QNBJX BZUD, RLDKKX BZUD, CQZFNM BZUD, RMZJD BZUD, XDKKNV BZUD 

DATA RSQDL flZMJ,RSHMJX OKZED,ENNC BZUD,EHMZK BZUD 

DATA BNKNQDC BZUD,HBD BZUD,NODM OKZED,VNNCR.VNNCR,VNNCR,VNNCR,VNNCR 
DATA VNNCR,VNNCR,VNNCR,VNNCR,VNNCR,VNNCR 
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The Wolf and the Five Little Goats 

A Grimm’s fairy tale? No, an intriguing board game! This game is played on a 
checkerboard displayed on the screen. As the game begins, the goats are scat¬ 
tered throughout the lower half of the board and are represented by little 
squares containing a number. The wolf stands at the upper left-hand corner of 
the board. 

Off we go — you are the wolf, and the computer controls the goats. You 
win if you eat three goats, and the computer wins if one of the goats eats you. 
(These wolf-eating goats are amazing creatures!) 

You may start. On the lower part of the screen you see: 

YOU MAY ENTER . . . MOVES 
for example 

YOU MAY ENTER 2 MOVES 

The number of moves always lies between 1 and 3, and tells you how many 
steps you may take during your turn. The wolf — in other words, you — may 
move horizontally or vertically, but never diagonally. Each move must be 
entered on the cursor keys. If the last move of a series of moves brings you on 
a square with a goat, the goat is yours. You may never cross a square that has a 
goat on it. 

There are 5 goats in all, and they may jump over each other. Goats can 
move only in one direction. The number of steps they may move is shown on 
the goats themselves, and is always between 1 and 5. For instance, if a goal 
bears the number 3 he can move 
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3 steps to the left, or 
3 steps to the right, or 
3 steps forward, or 
3 steps backward 

He cannot move 1 step forward and 2 steps to the left. If you (the wolf) have 
moved to a new position the computer shows 

NOW IT'S MY TURN 

When it is your turn, the computer shows 
YOU MAY ENTER . . . MOVES 
At the end of the game the computer either tells you 
YOU WIN! 

or worse 

YOU LOSE 


18 REM##THE WOLF AMU " r HE 5 LITTLE GOATS** 
2 8 DIM B C 10, 10 •>, R’ *5 . C 5 > , <■ IM < 5 > 

30 C$C0 
48 CS (.1 :« = " 

5 0 d $=" 'mmmmmmm *] 1 ■ 

60 goto 2000 

1080 REM**DRAN ONE FIELD** 

1018 ON Cfl+2 GOTO 1020, 1030.. 1040 
1820 R-RM •• C=CW ■ TXS- "UN" : GOTO 1078 
1830 TX$=C*<R+C AND 1 •' : GOTO 1070 
1040 R=R(GT> : C=C(GT> 

1050 TN$= !l 0"+RIGHTT ( STRT ( NM (GT > >, 1 > 

1060 CA=GT 
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1070 PRINT LEFTS<D$U3+R>;TAB<2#C-1>;SPC(7> TXS 
1080 B(R,C>=CA 
1090 RETURN 

1100 REM**INITIALIZE** 

1110 REM DRAW CHECKERBOARD 
1120 PRINT "IT; 

1130 FOR R*1 TO 10 

1140 FOR C=1 TO 10 

1150 CA*0:GOSUB 1000 

1160 NEXT C,R 

1170 REM PLACE WOLF 

1180 RW= 1 ■■ CW=1 : NM= I NT < RND ( 0 > *3+1 > 

1190 CA=-1 ■•GOSUB 1000 
1200 REM PLACE GOATS 
1210 FOR GT-1 TO 5 
1220 R (GT > = I NT(RND (0 >*10+1> 

1230 C < GT > = INT ( RND <0 > * 10+1> 

1240 NM ( GT > = I NT ( RND < 0 > *5+1 > 

1250 IF B<R<GT?,C<GT))O0 THEN 1220 

1260 CA=1•GOSUB 1000 

1270 NEXT GT 

1280 RETURN 

1300 REM**MOVE WOLF** 

1310 PRINT D$; " VOU MAV ENTER" ; NM;"I! MOVES" 

1320 FOR BU=1 TO NM 

1330 GET MVS-IF MVS*"" THEN 1330 

1350 RD=(MVS=".’T' AND RW>1 >-<MVS="M" AND Rl-K10> 

1360 CD*(MVS*"II" AND CW>1 )-CMVS»"M" AND CWO0> 

1370 TE=B(RW+RD.. CW+CD) 

1380 IF TE<0 OR TE>0 AND DLKNM THEN 1330 
1390 NM(TE>=0 
1400 SC=SC+SGN(TE> 

1410 R=RW •' C*CW 
1420 CA=0 : GOSUB 1000 
1430 RW=RW+RD•CWCW+CD 
1440 CA*-1 ••GOSUB 1000 
1450 NEXT DU 
1460 NM*INT<RND(0>*3+1> 

1470 RETURN 

1500 REM**COMPUTER MOVE** 

1510 PRINT DS.;" NOW IT'S MV TURN 

1520 REM EVALUATION 

1530 MX*-400 

1540 FOR GT*1 TO 5 

1550 IF NM(GT>=0 THEN 1600 

1560 CG=C (GT> ■■ RG=R ( GT > +NM (GT ) : GOSUB 1800 

1570 RG=R(GT >-NM(GT):GOSUB 1800 

1580 RG=R(GT):CG=C<GT>+NM(GT):GOSUB 1800 

1590 CG*C < GT ) -NM < GT ") : GOSUB 1800 
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1600 NEXT GT 

1610 REM MOVE GORT 

1620 C=C < GB > : R=R<GB> 

1630 Cfl=0 : GOSUB 1000 
1640 R < GB > =RB : C <. GE > =CB 
1650 NM<GB > = INT <RND<0 > *5+1> 

1660 GT=GB 

1670 CR=1 : GOSUB 1000 

1680 IF MX<1400 THEN RETURN 

1690 PRINT D$.:" VOU LOSE 

1700 END 

1800 REM**STRTUS** 

1810 IF RBSCRCGT>“RN>+RBS<C<GT>-CW)=NM THEN SQ=20O•GOTO 1820 
1815 SQ=0 

1820 IF RGd OR RG>10 OR CG<1 OR CG>10 THEN RETURN 
1830 IF E<RG,CG>>0 THEN RETURN 
1840 DI=RBS<RW-RG>+RBS< CW-CG) 

1850 IF BI=0 THEN SQ=500 : GOTO 1930 
I860 IF DI-NM OR DI=NM-2 THEN RETURN 
1870 IF DIOS THEN SQ=SQ+35 
1880 SQ*SQ-40#<(RG=RW>+CCG=CW)> 

1890 FOR G=1 TO 5 
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1900 SQ«SQ-10* < < RGORC G > > + < CGOC< G > > > 
1910 NEXT 

1920 IF SQ+RNIK0XMX THEN 1940 
1930 MX=SQ:GB=GT'RB=RG■CB-CG 
1940 RETURN 

2000 REM**MRIN PROGRAM*# 

2010 GOSUB 1100:REM INITIALIZE 
2020 GOSUB 1300:REM MOVE WOLF 
203G IF 503 THEN 2060 
2040 GOSUB 1500 REM COMPUTER MOVE 
2050 GOTO 2020 

2060 PRINT B$ " VOU WIN f 

2070 END 
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Alphabetic Highway 

This program again shows the power of working with sprites. After the RUN 
command has been entered you will see a busy highway with many cars on it — your 
task is to get across safely. But that’s not all. If you watch carefully you will see the 
complete alphabet appear above the highway. It starts at A, progresses to B and so on. 
You will notice that your task becomes more and more difficult.. . 

At the start of the game the computer requests a level which determines the speed 
of the cars. The cars do not all travel at the same rate, however, and this makes your 
task all the more difficult. 

If you are unlucky enough to be involved in an accident, the computer asks: 
AGAIN (Y/N)? 

and by pressing Y you are miraculously restored to health and the games starts 
again. 


10 REM ALPHABETIC HIGHWAY 
20 PRINT "23" 

30 V= 53248■ REM LOWEST SPRITE REGISTER 
40 POKE V+21, 0 

50 A'v'= PEEK 1 :: V+30> ' REM I NIT COLLISION REGISTER 

60 POKE 2040, 14 

70 POKE V+39, 1 

80 REM INPUT LEVEL 

90 PRINT "LEVEL U-5> ?" 

100 GET L* 

110 IF L$> "5" OR L$< "1" GOTO 100 
120 L= VPL'• L$> PRINT "23" 

130 REM DEFINITE SPRITE 0 
140 FOR 1=0 TO 62■ READ Q 
150 POKE 832+1, Q : NEXT I 

160 FOR 1= 0 TO 62- POKE 896+1, 0- NEXT I• REM SPRITE 0 LEGEN 
170 POKE 53281, 6 POKE 53280, 6- REM COLOR 
180 REM SCREEN 

190 PRINT "20 ALFABETIC HIGHWAY" 

200 PRINT "M LEVEL : ;L 
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210 PRINT "'*m ABCDEFGHIJKLMNOPQRSTUVWXVZ" 

220 FOR 1= 1 TO 14 
230 PRINT "3 
240 NEXT I 

250 print "irirnmiirniin"; 

260 REM INIT SPRITES 1-7 

270 FOR 1= 1 TO 7 

280 POKE 2040+ I, 13 

290 POKE V+2*I, 240 

300 POKE V+2* 1 + 1, 93+ 16*1 

310 POKE V+ 39+1, 2*1-1 

320 NEXT I 

330 POKE V+42, 2 

340 POKE V+21, 254 

350 FOR > 1 TO 26: REM MAIN PROGRAM 

360 POKE 56334, PEEK 1 ' 56334) AND 254: REM PLACE CHARACTERS 
370 POKE 1, PEEK< 1) AND 231 
380 FOR J= 0 TO 7 

390 POKE e96+ 3*J, PEEK < 53248+ 1*8+1) 

400 NEXT .J 

410 POKE 1, PEEKC 1) OR 4 

420 POKE 56334, PEEKC 56334) OR 1 

430 POKE V, 32+ 1*8 

440 POKE V+l, 98 

450 POKE V+21, 255 

460 FOR AV=1 TO 250: NEXT AV 

470 print " iimmmmmmm ", 

480 REM PLAV 
490 FOR K= 1 TO 7 
500 JO=PEEK<56321) 

510 IF NOT JO AND 1 AND PEEKC V+l)> 98 THEN POKE V+l, PEEK< V+l)- 

520 IF NOT JO AND 2 THEN POKE V+l, PEEKC V+l)+ 2 

530 X= PEEKC V+2*K)- 5*L* RND( 1 >-10- 1/2 

540 IF X<0 THEN X= X+240 

550 POKE V+2*K, X 

560 IF PEEKC V+30) AND 1 THEN PRINT' PRINT "ACCIDENT!!!": GOTO 690 
570 IF PEEKC V+1)= 218 GOTO 600 
580 NEXT K 
590 GOTO 490 

600 FOR RV= 1 TO 250 NEXT AV 

610 REM NEXT CHARACTER 

620 PRINT CHR$( 64+1); '"'I I'll 111 rnTTTTJ" , 

630 POKE V+21, 254 
640 NEXT I 
650 REM END 

660 POKE V+21, 0: PRINT "CONGRATULATIONS!" 

670 FOR AV= 1 TO 2000: NEXT AV 
680 IF L<5 THEN L= L+l= GOTO 190 
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690 FOR RV- 1 TO 1000: NEXT RV 
700 GETAV'$ •' IF fiV$<> "" GOTO 700 
710 PRINT "AGAIN? (V/N> 

720 GET A* 

730 IF A$= GOTO 720 
740 IF A$= "V" THEN RUN 
750 IF A*<> "N" THEN 720 
760 POKE V+21, 0 
770 END 


780 

DATA 

0 , 

0 , 0, 0, 15, 254, 0, 15, 254, 

0 , 

15. 

. 2 

54, 0, 

127, 2’54 

790 

DATA 

0, 

159, 254, 0, 159, 254, 0, 255. 

, 2 

54, 

0, 

240, l 

3, 0, 255, 254 

800 

DATA 

0 , 

124, 124, 0, 56, 56, 0, 0, 0, 

0, 

0, 

0, 

0 , 0 , 

0 

810 

DATA 

0, 

0, 0, 0, 0, 0, 0, 0, 0 . 0 , 0 , 

0, 

0, 

0, 

0, 0, 

0 ■ 0 
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At the Market 


Have you ever wandered through a market and been amazed at the speed with 
which the salesmen can add up a list of prices? Play this game with your family 
and find out how good a market trader you would make. 

You will see pairs of numbers of increasing length which you have to add 
up. You will soon find out that this isn’t as easy as it sounds. To see why, 
consider the sum 

75856 
-f 37637 

Normally you would add the numbers in the right hand column first, then the 
column next to it, and so on. With the computer, however, you must enter the 
answer starting with the left hand column. It is this difference that makes the 
game so tricky. 
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How many numbers can you add correctly within the time limit of about 
one minute? Can you beat our record of eight? 


10 REM**AT THE MARKET** 

20 DIM JOT<19 ') 

30 FOR I —0 TO 9 
40 READ JOT(I) 

50 NEXT 

60 PRINT "non"; 

70 NR=0 TI T= " 00000O " • MX -1 
80 GOTO 1800 

90 DATA BIG ZERO,EABV,PAPER-BOV,CLERK,AUTO DEALER,BROKER 
100 DATA TREADER,OIL MAGNATE,MILLIONAIRE,TEACHER 
200 REM**RANDOM NUMBER** 

210 N1T=STRT<INT(1 -K MX-1> *RND(0 > > > 

220 N2T=STRT < I NT C 1 + < MX-1 > *RND <. 0 ) > > 

230 AN=VALCN1T > +VAL<N2T> 

240 PR I NT T AB < NR+12-LEN < H1 $ > > N1 X 
250 PR I NT T AB < HR +12-LEN < N2T > > , N2T" +" 

255 F'R I NT " H i Hi ► > muffin HI" , 

260 FOR DU=0 TO NR+1 
270 PRINT 
280 NEXT 
285 PRINT 
290 RETURN 

300 REM**INPUT ANSWER** 

310 INPUT " RESULT";ANT 
320 RETURN 

500 REM**CHECK ANSWER** 

505 PRINT-PRINT 

510 IF VAL'-ANT>=AN THEN PRINT " RIGHT ! W" : NR=NR+1 : GOTO 540 

520 PRINT " WRONG !" 

525 PRINT 

530 PRINT "IT WAS •"■'AN 

535 PR I NT " TI ME ■ " : STRT C I NT < TI /'. 6 >X100 > j " SEC " 

540 RETURN 

1000 REM**MAIN PROGRAM** 

1010 MX=MX*10 

1020 GOSUB 200:REM RANDOM NUMBER 
1030 GOSUB 300:REM INPUT ANSWER 
1040 GOSUB 500 : REM CHECK 
1050 IF VAL<ANT>=AN THEN 1010 
1060 PRINT "JOB: PRINT JOT CNR:;' 
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Fallout 

At the start of this simple but absorbing game you will see eight horizontal bars 
with gaps in them. Above the bars are eight checkers which can fall through the 
gaps. In this example 


© © ® © © © © 



checker 2 has already fallen into a gap. The object of the game is to get all 
eight checkers through the bars. You can do this by moving the bars to line up 
the gaps for the checkers to fall through. 

To move a particular bar enter a command of the form 

BDS 

where 

B is the number of the bar (the bars are numbered from 1 at the top to 8 at 

the bottom) 
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D is the direction you wish to move it (L for left, R for right) and 
S is the number of steps the bar has to be shifted. 


For instance 


3R12 


moves bar 3, 12 steps to the right. This might sound like a very simple game 
but when you actually start playing it you will find that it provides quite a stiff 
test of your ability to think logically. 


10 REM **FALL0UT** 

20 DIM H< 16.• 8> 

30 PRINT 

40 REM ** FILL WITH EAR'S 
50 FOR X~0 TO 16 
60 FOR V=1 TO 8 
70 H(X,V> = 1 
80 NEXT V,X 

90 REM ** 4 RANDOM HOLES 
100 FOR V=1 TO 8 
110 FOR B=1 TO 4 
120 X=INTCRHD(0)+16+1> 

130 H(X,V)=0 
140 NEXT EV 

150 REM m PUT 1-8 ON TOP 
160 FOR B=1 TO 8 
170 HC2*B-1,0>=B+100 
180 NEXT B 

190 GOSUB 610:REM #* DRAW 
200 GOSUB 910: REM ** MODIFY 
210 GOSUB 610:REM ** DRAW 
300 REM *#* GET COMMAND 
310 INPUT Z* 

320 V®VAL<LEFT1 >> 

330 IF Y<1 OR Y>8 THEN 510:REM ** NIPE 
340 D$=MID$(2$,2,1> 

350 DX*VALCMID* (Zt,3)> 

360 IF DX=0 THEN 510:REM ** WIPE 

370 IF D$0"L" AND D$0"R" THEN 510: REM m WIPE 
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380 IF D*="L" THEN GOSUB 1110 REM ** SHIFT LEFT 

390 IF D$="R" THEN GOSUB 1210 REM ** SHIFT RIGHT 

400 BR«BR+1 

410 GOSUB 910:REM ** MODIFV 
420 GOSUB 610 •• REM *# DRAW 

430 IF SC>=36 THEN END •'REM ** WHEN ALL CHECKERS ARE DOWN 

440 IF DX>1 THEN DX=DX-1:GOTO 380:REM ** REPEAT DX TIMES 

500 REM *#* WIPE 

510 print 

520 FOR V=10 TO 21 
530 PRINT " 

540 NEXT V 
550 PRINT " 

560 print " v mm m m" 

570 GOTO 310:REM ** GET COMMAND 
600 REM *** DRAW 

616 print 

620 FOR V1=0 TO 8 

630 REM * PRINT BARNUMBER (OR DON'T'; 

640 IF V1=0 THEN PRINT " "J 

650 IF V1>0 THEN PRINT SPC<9> STR$<VI> i "> % 

660 FOR X=0 TO 16 
670 Z*H(X,V1> 

680 GOSUB 810:REM ** print ELEMENT 
690 NEXT X 
700 PRINT 
710 NEXT VI 
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720 PRINT SPC<8> " SCORE"j SC;“ TURN";BR 
730 RETURN 

800 REM *** PRINT ELEMENT 
810 IF Z=0 THEN PRINT " "; 

820 IF Z=1 THEN PRINT " fiLB" 

830 IF Z>100 THEN PRINT CHR$CZ-52>; 

840 RETURN 

900 REM ##* MOniFV 

910 FOR VI =8 TO 0 STEP -1 '■ REM * SEARCH FROM BOTTOM TO TOP 
920 FOR X=0 TO 16 
930 TV=V1 

940 IF H(Xj V1X100 THEN 1020 

950 IF TV>=8 THEN 1068 : REM ** REACHED BOTTOM 

960 IF HCX.- TV+1 )O0 THEN 1020 ■ REM ** BLOCKED 

970 REM ** SHIFT CHIP BONN 

980 HK X .■ T V+1 '• =H <X , TV> 

990 HCX.. TV)=0 
1000 TV-TV+l 

1010 GOTO 950•REM V* CONTINUE TO SHI r T 
1020 NEXT X 
1030 NEXT VI 
1040 RETURN 

1050 REM ** REACHED BOTTOM 

1060 SC=SC+H<X,TV>-100 

1078 H(X,TV)=0 

1080 GOTO 1020 

1100 REM *** SHIFT BAR LEFT 

1110 TM=H(0V> 

1120 FOR X=0 TO 15 
1130 HCX, V>=HCX+1 . V> 

1140 NEXT X 
1150 H(16 V)=TN 
1160 RETURN 

1200 REM SHIFT BAR RIGHT 

1210 TM=H(16,V> 

1220 FOR X=16 TO 1 STEP --1 
1230 HCX, V>=HCX-1, V> 

1240 NEXT X 
1250 H 0, V :• — TM 
1260 RETURN 
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Ship's Attack 

First, let’s describe this game as realistically as possible. In the lower half of the 
screen is a shape like this: 


Little squares fall down from the top of the screen. You must move the shape 
using the cursor controls and the shift key to stop the squares hitting it. If that 
sounds dull what about this . . . 

You are captain of one of the finest spaceships in the universe. As you 
cruise majestically through the Milky Way you can’t help feeling proud of the 
magnificent vessel under your command. Then just as you are nearing base and 
the end of your voyage is in sight, disaster strikes — 


A FL YING SA UCER A TTACK! 


How can you escape these unfriendly invaders from across the universe? Why 
not try your 


SUPER ATOMIC ESCAPE MOTOR? 


The more flying saucers you avoid, the more points you get. That sounds 
better, doesn’t it? Anyway, the game is fast, simple and great fun to play, and 
that is all that matters. 
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10 REM*** SHIPS ATTACK *** 

20 8R=53248 
30 POKE2040.* 13 
40 FOR 1=0 TO 62 
50 READ X 
60 POKE 13*64+1,X 
70 NEXT 

80 POKE SR+21 , 1 : POKE SR+23, 1 ' POKE SR+29, 1 
90 POKE SR+1, 112 • POKE SR+39, 7 •' DU=PEEK<SR+31 > 

100 M$=" ■" 

110 POKE 646,1 

120 INPUT "□LEVEL U-3) ", LE 

130 IF LEO OR LE>3 THEN 120 

140 PRINT "□"; : PL == 21 

150 PO=PO+l 

160 REM**GENERATE SAUCER** 

170 SA=40*9+PL-40*INT < 4*RND< 0> +5-LE> +3~6*RND<0> 
180 GET A$ 

190 PL=PL+<A$="ir AND PL>0>-<A$="H” AND PL<40> 
200 REM**MOVE SHIP AND SAUCER** 

210 P1X=PL*8 

220 P2X=F'1XX255: P1X=P1X-P2X.*255 
230 POKE SR, FIX': POKE SR+16,P2X 
240 A1=0:A2=SA 

250 IF SA>255 THEN Al=255'A2-SA-255 
260 PRINT "ST ; TAB< A1 > SPC< A2> M$, 

270 IF PEEKCSR+31>AND 1 O0 THEN 310 
280 SA=SA+40 •' IF SAO0*40+PL THEN 180 
290 PRINT "IS 

300 IF SA>=10*40+PL THEN 150 
310 REM**EXPLOSION** 

320 P0KE54272, 0 •' P0KE54273, 20 

330 P0KE54277, 127 •' P0KE54278,250 

340 P0KE54276,129 

350 FOR DU=1 TO 15 

360 POKE 54296,16-DU 

370 POKE 53280,INT <16*RND<G%> 

388 POKE 53281,INT <16*RND C 0 >> 

390 POKE 36877,128+1NT<20*RND<0 > > 

400 FOR T=1 TO 50'NEXT T 

410 NEXT DU 

420 POKE 54296,0 

430 POKE 53280,14:P0KE53281,6 

440 P0KE54276,0 

450 PRINT "□t'OU HAVE" ,'PO-l; "POINTS" 

460 REM SPRITE DATA 
470 DATA 0,0,0,0,0,0,0 
480 DATA 0,0,0,0,0,12,6 
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490 DRTR 
500 DRTR 
510 DRTR 
520 DRTR 
530 DRTR 
540 DRTR 
550 DRTR 


0,24,3,0,56,3,128 
120,3,192,120,3,192,248 
3,224,252,7,224,252,7 
224,127,31,192,127,191,192 
63,255,128,31,255,0,15 
254,0,3,248,0,0,0 
0 .■ 0 , 0 , 0 , 0 , 0 , 0 
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Mini Mancala 

MINI MANCALA is based on an old Arabian game. It is played by moving stones 
between cups. There are four cups: A and B are the computer’s, and C and D 
are yours. At the start of the game there are two stones in each cup. 



C (you) D (you) 


In turn, the players take the stones from one of their own cups and distribute 
them counterclockwise to the other three cups. For instance you might choose 
to move the stones from cup D like this: 
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A (computer) 


B (computer) 



C (you) 


anticlockwise 



D (you) 


After this move cup D is empty. In fact, there will always be at least one empty 
cup, because during each move stones cannot be put back into the cup from 
which they were taken. 

To win the game you must get all the stones into your own cups. 

On the computer, the cups are represented by squares with numbers on 
them indicating the number of stones they contain. You can choose the level of 
difficulty you prefer, 1, 2, or 3 (1 being the easiest), and who has the first 
move. The computer will ask which of your squares you wish to move the 
stones from and will tell you what its own move is. The position of the stones 
on the board is displayed after each move. 

You may be surprised that this complicated game can be described in such 
a short program. The diagram shows all the possible moves, and is an excellent 
example of how a strategic game can be represented schematically. 
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10 REM **MINI-MflNCftLFl** 

20 DIM BO>,SUOO 

30 DEF FNSP <X > = 15+80* < X RND 2 '• +6* < X AND 1 > 

40 FOR 1=0 T 0 3 
50 E(I)=2 
60 READ SLK I> 

70 NEXT 

30 DATA 2,G,3.. 1 

90 E $■=" ft » ft » i EH ft § 1 " 

110 GOTO 1000 
200 REM*#DRRW SCREEN** 

210 PR I NT " 7IST SPC < 13 > " MINI -MANCALA" 

220 PRINT 
230 PRINT SPC'-11> 

240 PRINT SPCai) 

250 PRINT SPC(ll) 

260 print spear; 

270 PRINT SPC(ll) 

280 PRINT SPCai) 

290 PRINT SPCai > 

300 PRINT SPCai) 

310 PRINT SPC(ll) 

320 PRINT SPCai) 

330 PRINT SPC<11> 

340 RETURN 
400 REM**INPUT MOVE** 

410 PRINT E$"M0VE STONES FROM CUP <C IL>" ; 

430 INPUT S* 

440 IF S$="" THEN 410 
450 S=~2* < S$=" C 11 > -3* C S$= "Da 
460 IF S=0 OR B<S)=0 THEN 410 
470 RETURN 

500 REM**C0MPUTERS TURN** 

510 PRINT E$" NOW IT'S MV tijrn 
520 FOR DE=1 TO 500■NEXT DE 

530 IF LEO AND RND<0)*LEC.6 THEN S=INT<RND<0>#2> : GOTO 560 
540 q=b f2 } +10*<B <1) +10*B<0>> 

550 S=1 

560 IF Q=143 OR Q=134 OR Q=611 OR 0=116 THEN S=0 
570 IF B<S>=0 THEN S=l-S 

580 PRINT ES" I MOVE STONES FROM CUP "MID$< "RB" , S+l ■ 1 1 
600 RETURN 

700 REM**SPREAD COUNTER CLOCKWISE** 

710 D=S 

720 FOR C=1 TO B< SI 

730 FOR DE=1 TO 400 : NEXT DE 

740 D=SU<D > 

750 IF D=S THEN 740 


ft"SPC<13?"B" 


I I I 

| 2 12 1 

i—_-1-1 

! I • 


C"SPC<13>"D" 
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760 B<S>=BCS>“1 

770 print •• mronunr spc <fnsp< s > >; b < s > 

780 BCD)=B<D>+1 

790 pr i nt " -ammm''spc < fnsp <n > >ecu> 

800 NEXT C 
810 RETURN 

1000 REM**MAIN PROGRAM#* 

1010 GOSUB 200 : REM DRAW SCREEN 
1020 PRINT E$" LEVEL a-3>".; 

1030 INPUT LE 

1040 IF LE<1 OR LE>3 THEN 1020 
1050 PRINT E *" DO VOU BEGIN 
1060 INPUT AN# 

1070 IF AN$="N" THEN 1120 

1080 IF RN#0"V" THEN 1058 

1090 GOSUB 400:REM INPUT MOVE 

1100 GOSUB 700:REM SPREAD COUNTER CLOCKWISE 

1110 IF B <3> =8 THEN PRINT E$" VOU WIN! ":GOTO 1160 

1120 GOSUB 500:REM COMPUTERS TURN 

1130 GOSUB 700:REM SPREAD COUNTER CLOCKWISE 

1140 IF B<G:.'=8 THEN PRINT E$" I WIN! » : GOTO .1160 

1150 GOTO 1090 
1160 END 
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Stop It! 

Although this is only a short program it gives rise to a fast and exciting game. 
The screen looks like this 



The square on the left has a letter on it. When it moves across the screen you 
must try and stop it, using the space bar, in the region bearing the same letter. 

At the start of the game the computer requests a level of difficulty (1 is 
easiest, 2 is harder, and 3 is the most difficult) and asks how many times you 
want to play. You will be shown your score at the end, for instance 

0 HITS OUT OF 10 
Never mind, better luck next time! 
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10 REM**STOP IT** 


50 DT=10-3*DI 

60 INPUT "NUMBER OF TURNS";NT 
70 PRINT "TT 
00 FOR RG*0 TO 24 
90 PRINT TAB(31>" I I I I" 

100 NEXT R0 

110 PRINT "3"TflB<31 > ; " A B C D" 

120 TU=TU+1 

130 CO=INT(RND(0 >*4+1> 

140 BU$=M I D# ( " flBCD".. CO .. 1 ') 

150 R0=2*INT CRND<0>* 12+1> 

160 PRINT ,, Sj' , ;LEFT$(n$,RO+i::'; 

170 PRINT " ";BU*; 

180 FOR DE=1 TO DT*9 NEXT 
190 PRINT "II II ; 

200 GET A $ 

210 IF PCS’- 0X39 AND A*="" THEN 170 
220 IF PCiS(0><>30+2*00 OR POS(0>=42 THEN GET DU# : GOTO 250 
230 HI=HI+1 
240 PRINT "SM";HI; 

250 IF TU>=NT THEN PRINT "73"; HI j "HITS OUT OF" ; TU : END 
260 FOR A=1 TO 500 : NEXT 
270 GOTO 120 


20 PRIN 
30 D#=" 

40 INPUT "DIFFICULT 1 ! 1 


<1-3 


1 ; DI 
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The Swedish Popsong. 

A thema con variatone is a tune that, although it is based on one that has been 
heard before, has its own mood and identity. This game could be considered as 
a thema con variatone as it has some similarities with another game in this 
book, but presents its own unique challenge to the solver. 

You will see 16 fields filled with a random arrangement of As and Bs e.g. 


B 

A 

B 

A 

A 

A 

A 

B 

A 

B 

A 

B 

B 

B 

A 

B 


When you enter one of the fields (using the key shown on the screen) all the 
letters on the horizontal and vertical rows through that field will be altered so 
that all the As become Bs and vice versa. Your aim is to end up with a screen 
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which looks like this: 


Id REN m BRER ** 

20 DIM B ( 4 .■ 4 
30 REM** INITIALIZE** 

40 FOR R-l TO 4 
50 FOR 0=1 TO 4 
60 B < R, C > ~ I NT < 2*RND < 0 - 1 > 
70 NEXT C,R 
60 PRINT "TT; 


B 


A 



g 
















1000 REM#*DRAW SCREEN** 

1010 PRI NT " ; TAB <16 >; ”1234" 

1020 FOR R-1 tq 4 
1030 PRINT 

1040 PRINT TAB<13>:STR#CR) + " "; 

1050 FOR C-l TO 4 

1060 IF B<R.. C •' THEN PRINT "B"; : GOTO 1080 
1078 PRINT "A"j 
1080 NEXT C,R 
i100 REM**OET MOVE** 

1110 PRINT:PRINT 

1120 PRINT SPC<14> "ROW 

1125 INPUT R 

1130 IF RO OR R>4 THEN 1120 
1148 FOR C -1 TO 4 
1158 BCR,O = N0T BCR,, O 
1160 NEXT 

1170 PRINT SPCa4> "COLUMN®" J 
1175 INPUT C 

1180 IF C<1 OR 04 THEN 1170 
1190 BCR., O^NOT BCR,0 
1200 FOR R=1 TO 4 
1210 BCR,C > =NOT BCR,C> 

1220 NEXT 
i230 GOTO 1000 
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Vowels and Consonants 

This competition game can be played by the whole family. Unlike most other 
computer games, it does not involve numbers or arithmetic. At the start of the 
game enter the number of players, and then take turns to play. 

The computer will give you seven letters: when it asks you 


V OR C? 


enter V for a vowel or C for a consonant. When you have your seven letters the 
computer challenges you to make as long a word as possible out of them, using 
each letter once only. There is a time limit, shown on a clock on the screen. It 
is amazing how addictive a simple game like this can become. Try it and see! 

10 REM**VOWELS AND CONSONANTS** 

20 PRINT "ir; 

30 INPUT "NUMBER OF PLAVERS", NP 

40 IF NP<1 THEN 20 

50 DIM PO<NP>iC$<7>,WQ*<20> 

60 GOTO 1000 

100 REM**CH00SE CHARACTERS** 

110 LE$="" 

120 PRINT "WTURN OF PLAVER",PL 
130 PRINT "V OR C?" 

140 FOR DU=1 TO 7 
150 GET IN$ 

160 IF IN$0"V" AND IN$O n C" THEN 150 
170 IF IN$="V" THEN CH$="AEIOU" 

130 IF IN$="C" THEN CH$*"BCDFGH JKLMNF'QRSTVWXYZ" 

1 90 C$=MID$ < CH$,RND< 0> *LEN < CH$ > + 1,1> 

200 LE*=LE$+C$ 

210 PRINT C^.i 
220 NEXT DU 
230 RETURN 

300 REM**INPUT WORD** 

310 LE=0 

320 PRINT "WTIME IN SECONDS : " 

330 FOR TM=45 TO 0 STEP -1 

340 print "saw mem tm<i@ then print " ", 

345 PRINT TM 
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350 FOR DE=1 TO 48 
360 GET IN$ 

370 IF <IN$OCHR$<20> OR LE*0> AND (IN$<"R" OR INf>"2") THEN 410 
373 IF LE>6 RND IN$OCHR*<20> THEN 410 

360 pr i nt " xmmmm ''; trb < le+ i > ; i m 
390 IF IN$=CHR$<20> THEN LE=LE-1 : GOTO 410 
400 LE=LE+1:WO$<LE>*IN$ 

410 NEXT DE,TM 
420 RETURN 

300 REM**COMPUTE POINTS** 

510 FOR C=1 TO 7 

320 c$cc>=mib$';le$, 0 , 1> 

530 NEXT 

540 FOR 00=1 TO LE 
550 FOR 0=1 TO 7 

560 IF W0*<C0>=C$<0> THEN C*<C> = GOTO 580 

570 NEXT O 'GOTO 600 
580 NEXT CO 
590 POCPL)=PO<PL>+LE 
600 PR I NT " ; 

610 FOR P=1 TO NP 

620 pr I nt 11 pl Fiver " P: u ■"; po < p >;" POI NTS " 

630 NEXT P 
640 RETURN 

1000 REM**MRIN PROGRAM** 

1010 FOR F'L = 1 TO NP 

1020 GOSUB 100 : REM CHOOSE CHARACTERS 

1030 PRINT'TURKE fl WORD OUT OF THESES" ; PRINT TAB<6>;LE$ 

1040 GOSUB 300 : REM INPUT WORD 
1050 GOSUB 500-REM COMPUTE POINTS 
I860 NEXT PL 
1070 GOTO 1010 
1080 END 
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Astrology 

This program is based on a study made by the Dutch physicist and astrologer 
Dr. Ir. J. Van Slooten. He was a research worker at Philips laboratories who 
spent all his free time on astrology. He developed a theory that the phase of the 
moon at the time of birth was a very important astrological influence on a 
person’s character. After studying the lives of hundreds of people he con¬ 
cluded, ‘ . . . that the moon phase forecasts the extent to which the spiritual 
and emotional life, especially with respect to a person’s social environment, will 
develop and furthermore the role he or she will play in our society . . .’ 

The diagram shows the cycle of the moon’s phases. As there are three phases, 
waxing, full, and waning, so three types of person can be defined. 


Individualists: born in the waxing moon phase, they have waxing energy. They 
like to work on their own, have strong wills, and are not discouraged by 
physical discomfort. 

Socialists: born in the full moon phase, they like to live in communities. Key 
words for these people are ‘compare’, ‘choose’ and ‘combine’. 
Cooperation is a dominant factor but there is also rivalry and envy. 

Conservatives: born in the waning moon phase, they know that the light de¬ 
creases but will return again. They are careful and sure of themselves, and 
like to have everything under control. 

These three types can be further subdivided to give twelve categories in all: 
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Pioneers are searchers, always ahead of the crowd. Their strength of purpose 
can sometimes make them appear stubborn. 

4 - 0 - 

Coordinators like to be with other people, but feel that they are ‘more equal* 
than their companions. They are romantic and strongly attracted to family 


o 

Realists look at the world in a very down-to-earth manner. They like to think 
that everything can be explained in purely physical terms. 

5 ^ 

Spiritualists are rather ‘other worldly’ characters. Philosophical in outlook, 
they are seekers after the unknown. 

<@> 

Artists transform material in a creative manner. They can produce works of 
art, new products, or anything that did not exist before. 
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Apostles are not themselves creative but spread the ideas of others to the world 
at large. 


Helpers take on responsibilities for their fellows that might otherwise be ig¬ 
nored. They are helpful and caring to others. 



Leaders also assume responsibilities but in this case for directing the lives and 
actions of others. They look forward where most people would prefer to 
look back. 


Knights are fearless adventurers, always searching for new things to explore. 
Idealistic in outlook, they have a strong sense of honor. 

0 
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Arbiters like to preside over the actions of others. They do not prejudge issues, 
but when they reach a decision they expect it to be obeyed. 



Revolutionaries are dissatisfied with the world as it is. They tend to look on the 
bad side of things, and have a desire to change the world. 


Prophets consider the world ‘from above’ bringing to bear the wisdom of the 
past. They may not always be listened to, of course. 


O 

The program will tell you the phase of the moon on the day you were born. 
From this you can discover the secrets of your character! 
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10 REM**MOGNPHRSE RSTROLOGV** 

20 GOTO 1000 

100 REM**INPUT IiRTE** 

110 PRINT '■^MCiONPHRSEXM" 

120 INPUT "DRV DU " i DD 
130 INPUT "MONTH MM "; M 
140 INPUT "VERR VVVV";V 
150 IP MC3 THEN N=M+12 V^V-1 
160 RETURN 

200 REM**CRLCIJLRT I ON** 

210 T=I NT (365,25*V > +1 NT (30.6* < M+1 > + HD-694038 
220 T=T/36525 

230 LR=350.737486+1236*T:*36G 

24G LR=Lfi+307*T+6#T/60 

250 LR=Lfl+51.18*T/3600-5„17*T*T/3600 

260 Lfl-Lfl-1 NT <LA/360> *360 

270 LR=INT 'LR+. 5." 1 

280 RETURN 

300 REM**DI3PLRV RESULT** 

318 PRINT " DON PHASE = "L p "DEGREES*!®" 

320 RETURN 

1000 REM**MR.IN PROGRAM** 

1010 GOSUB 100 : REM INPUT DRTE 
1020 GOSUB 200 : REM CRLCULRTI ON 
1030 GOSUB 300■REM DISPLRV RESULT 
1040 PRINT "PRESS RNV KEV" 

1050 GET m- IF THEN 105O 

1060 GOTO 1010 
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Does your brain get enough exercise? Are your wits as sharp, or your 
reactions as quick, as they should be? Tone up the muscles of your 
mind with this enthralling collection of arcade and action games, 
puzzles, brainteasers and competitions for your microcomputer. 

Battle with GALACTIC MONSTERS and ZOMBIES IN THE SWAMP, 
defend yourself against a SHIP'S ATTACK, and set out on a 
nerve-jangling SHARK HUNT. 

If you survive all that you can gamble at LAS VEGAS A GO GO 
and the KENTUCKY DERBY, plumb the mysteries of the BLACK BOX. 
and stretch your mind with intriguing board games like ONE TO FIVE. 
SHAKESPEARIAN SHUFFLE, and MINI MANCALA Then.test your 
intellectual capabilities with VOWELS AND CONSONANTS, 
KEYBOARD MEMORY, and AT THE MARKET. Will you turn out to be 
a GENIUS AT WORK? 

By now you'll be razor sharp and ready for anything, which is just 
as well because you are not even halfway through yeti There's even 
more excitement, skill and fun for you. your family, and friends. So test 
your reflexes and mental prowess on this extraordinary obstacle course. 

What are you waiting for . . . on your marks, get set . . GOI 
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